MICROFICHE APPENDIX 



uQe «»cdiib.tu 



.ude <iyi/tnp_ctl .h 



• EXEC SOL 8ECIN DECLARE secticw; 
EXEC SOL DID DECLARE SECTION; 
•undef SQLCX_STOIUkCE_CLASS 
EXEC SOL INCLUDE SQLO..H: 

mc gec_dxitrlbvjtion latruct »«gmenc_atrucc "»«g«enc_li»c. 

long numDer_of_aegmeriti. 
char 'dynaaxi^load. 

I 



EXEC SOL BEGIN DECLARE SECTION; 
char oacct_nr 111! ; 
VARCHA* oatart_aceo<inc (101 ; 
VARCHAR o«nd_aceo\int 110) .- 
VARQtAR onartet DJ ; 

long ocnt-0; 

long ototal_cuat_count-0: 

long ototal_accounc_count-0; 

long oaegroent_ai*e-0 ; 

EXEC SOL END DECLARE SECTIOW; 



: aegment_atruct •■eg«ent_liJC.(itniet »eg»ent_i 




BOOLEAN 
BOOLEAN 

long tot_cuat_c 
inc index-O.V 
inc uidcu - Q : / • 

inn indexa_*dj«0:/* count »ggr overflow tor • 
iat aegn>cnt_cmint-0.-/' count a»9weatj a* produced */ 
long temp_acct_nuniber-0; 

char aegraenc_sc*XT_accttll) ; . - 

char l*at_acct_nr [11) ; 

char a»gment_atar-t_nn* U J ; 

char »eoi»ent_atart_atr (8) ; 

long «ngT»ent_aE*z-t_num; 

long aeg»ent_tnod-0 ; 

long diacributer-0 ,- 

long disc_adjuat-0; f m Corapenaace for raoiaiader after laac aeomenc */ 
char line ((0) ; 

FILE 'tp:/' Static lo»d file pointer •/ 

Char tap_err_buf HO) ; /" uaed for formatted error atatemnts */ 

vput (aoraarket. market ) ; 

vput tfcoatart_acco\int . »tart_account) ; 

vput I fcoend_aecount . end_account ) ; 

memaettaegrmmt sun acct.BOLL.ai.xeof taegnent atart acct) ) ; 



i (<3ytv»iaic_lo»d 101 -- 'I' I 



: pendiiig account* are net preaenc i 



TRCH BILL_IN70 
WKER£ KAJUCrr - •omMTket 

AfTO (ACCOUNT.. KR BETWEEN :oatart_l 

EC SQL 

SELECT COUNT <account_nrt 
INTO :otot»l_cuft_couat 

nton cnsT_iuro 

VXESX MWUZT - :omar)cet 
AHO t I Uggr I- ) 




sr_h*ndl er ( *get_di»triJbution' . UNKNOWN , 
•Warning r S^aent aixe < I 



)/• If there are 




iegi«enr._"«od. diatrioucer I : 



error • TRUE: 
error_handler ( *get_c 

■Number of «egm encs cannot be zero.* 



EC SOL DECLARE aegmenta CURSOR FOR 
SELECT WI.IPARHTT_XCCT,ACCODNT_NHI 
FROM CDST_I,V70 
WHERE MWUCCT - :oe»ariiet 

AWD I HVL ( PAREHT_ACCT . ALLUUNT_NR I 



ORDER BY NVL<PAAEST_ACCT.ACCOUST._K 
XEC SOL OPEH aegmenta: 
f taqlca.aqlcode I- HOT_S0L_EJWOR) 
error_handler ( *get_diacribur.ion* 

hilel laglca.aqlrade — r»OT_S0L_E3UlOJU 



• diatribuce extri accounca if wore left in overflow li 
diatributer indicataa aoo>e aegaenca get an «xr 



.f ( (distributer I- 01 ti (aeg™enc_i 
( laegmsnc_coune * diatributer) ■ 



• adjuat ao when extra accoxmta axe depleted, 
■pace will be allocated •/ 



elae di»c_adjuat - 0; 



whilel (aqlca.sqleode — NQT_SQL_ERJlOR ) U. 

(index < (oaegnene_aize * diat_adju» 



EXEC SOL FETCH aegaaenca OTTO :oacct_ar.- 
if ( (aqlea.aqleode I- J*3T_SQL_BUtaR) 4« 
(sqlca.aqlcode I- S0L_SOT_FOUHD) ) 



error_handler ( •get_diacribucion" . ONTCNOWN. 

eqlca.aqlemn.aqlerrme) ,- 
error - TRUE; , 

elae if laqlca.aqlcode !- S0L_N0T_FOCND ) 




/• Juat logging * count at account* vi cuatewera laecual!*/ 
If iwncnp loacec_nx. laic_acct_nx. aizaoC <o»cee_nr) ) I- 01 

( 

•amrpy ( laac_accc_ar . oaccc_nr . aiieof loacet_nr) ) : 

I 

If ( (indexa -- 01 Li 

Imcacap lo*ccc_nx. laat_acct_nx . aixeof lo*cct_arl 1 1 — 01 

( 
) 

)/* no arror tacrMng next cuacoaer •/ 
)/• While not aegmcnt liadt •/ 



/• allocace * liac elataenc loch couaca here) '/ 
if ( taeg»ent_counc < m»iber_af_aegmenta) 14 
( laqlca.aqlcode -- S01-_NOT_ POUND J || 
(aqica-aqlcode — «OT_SQI._EJUIORI 1 1 

( 

If ( laegmenc_cur - lacruct a*g»ent_»truct *) 

«*lloc I lunaignad inc) aixaof lacruct aegm«nt_Btruet) ) > 
I- lacruct •»g-«nt_acruct «)BnU.) 

{ 



-»rpc_fil«."W.la_%d-, 



f (»egKoc_cur- >b«gin_« 
.ir->begin_aceTUO] • ■ 



aegme«c_eur->«nd_ac<rt (10J - - \0*; 
•pruKf I »eg»enc_cux- >acdouc_f ile . • %3 . 3a_» 



at_cur->proe«aa_id - 
aeg»nc_cur->procaaaor - 0 
»eg»ent_cur->runnii>g - 0; 



; to reflect aggregates that wait to 



••gMent_cur-»link - I « truer a«gmenc_a cruet •)NDU > ; 

/• if this ia the firat element then a»arlc it »J the head of Che iiat •/ 
if |a«9«oextt_ac*rt — lacruct aega«nt_atruct 'HHHX! 
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Increwenc end account to u»e ** «c«rt of next aegwent */ 

•print: l»egB>enc_»t«rt_np», •« .;ja",aegment_end->end_»c 
rpri_nti iaegment_at«Tt_atr. M7 .7a' . 

t»»gi»enc_«nd-*«ad_«ect [Jl ) ; 
aea»ent_fcart_rajo - atol Iae5aent_atart_icr ) ; 

eprmtf laegaen^acerr^aeet. '\1 . J»»071<3" , 
aegmenc_acart_nn*. 
B»g»ent_ecArt_miml ; 

) /• If allocate element •/ 

( 

aegment_atart - latruet ••g«ent_»truct '1NCLI.; 
error_&an<Uer I •oet_d.ietrlDutian • . CWWrotm . 

'mtmxy allocation'); 

•rmr - TOTE; 
) /♦ el»e «alloc error */ 
)/• If fetch •/ 

elae if ( laegment_counc »- number 

laqlca.aqlcode I- SQl._HC7T_l'OC!HD > ) 

( 

if l«emcnpH»cct_nx.ie»t_»c«_nr.jilaeof loeeet_nr) ) I- 0) 
account %10.10a left.' 



r_handler ( •get_dx»cribucion > .OHTIJOWN. mp_er-r_buf > ; 



"rtule ( (aqlca .aqlcode I- SQL HOT TOCNDI) 

I 

if <wmcisp<oacct_nr,leai_acet_ox.aixeof loa 

{ 

aprlnef (cnp_err_buf , 

'Out of aegmenca and account 
•%10.1oa lett.',o»cet_nr) ; 



error_h«ndier I *get_di 

t=p_err_buf ) .- 

error - TRUE; 



EXEC SOL FETCH aegmenca EfTO :o»cct_nr; 



ind«a_»dj - 0 
)/• Hhile acre aeg 
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if laqlc».aqlcode I- S0L_NOT_nOT<D> 
( 

»egment_»c*rc - (acruct aegmen^atrucc •1N0U.;. 

error handler I 'ge^diacribuc ion' . UMOItw. aqlca .aqlerrm. aqlesr 

)/• Report error */ 

EXTC SOL CUOSZ »«o«nc»; 

/• get laat ■«gmenc»- cuaco-er »llot»ent •/ 
tot_cuat_chX aagnwnt_«nd->cai»e; 

printfCUd TOTAL IN SEGMENTS - »ld in d±> - \ld\n 1 , 

»eg»enc_co\mt . coc_cuat_chX . ocot*l_cuac_counc ) ; 



elae 

( 

if ( (Jp - fopan ( •LOAD_SALANCE ■ . *r" ) ) — BOU.) 



elae forlaeg»ent_e 



if (fgecalline. 80. fp) 

{ 

if Hi 



malloc I lunaigoed int) aixaof latruci 
I- latruct »«g«ent_acxuct •IHOLW 



print! t-STATIC_La*D MJkIXOC\n-) 



■prujcf (»«gi«eat_eur->rpt_fiie, •»s_%d" .market. 

nemepy I aegnent_cur - >begin_aect . line . 10 ) : 
aeg«eiit_eur->begin_acetllO) - '\0' ; 

->«nd_acct.Uinetll] ,10): 
r->«nd_acctllO] - '\0- : 
aprintf la«gw«nt_cur->atdout_£ile. -*a_*d', 



_atniet • I NULL ; 

/• if tail i» Che firac element Chen ■ark it a* the bead of the liat •/ 




) /• it »lloc*ce U»C elwnenc •/ 
•lae 

( 

»eg»enc_»t«rc • Utruct »egnent_«trucc "INTJU.; 
error_t»«niiler (*9et;.di«tribucion* . CK1OJ0W). 

' ■ gufci ry allocation- 1 .- 

error - TRUE; 
) /• else ■•Hoc error */ 
)/• II net segaenc line •/ 
else 

( 

aeanent_at»rt • (struct eeg«ene_struct •INULi; 
•princf (line. "Can't 9et segment range entry %d of id', 

•eg™enc_count.nuiiib*r_of_»«gniencs) ; 
ei^r_h«adJer(*9et_dj.»trlbution«.CBnoro»«.line) ; 
error - TRUE; 

I 

)/• lor x segment* •/ 

) 

/* Place starting address of segment list in caller' • pointer */ 



)/• End of get distribution */ 



■ mcluoe •.c.a.vlp-f 
.include -bill_5loD.l.h' 
.include •vg_er-or.fi* 
• include • F- r_«wi_proco.n" 

EXEC SQL BEGIN DECLARE SECTION: 
EXEC SOL DO DECLARE SECTION; 
EXEC SOL INCLUDE SOLCA.H: 

BOOLEAN get_««cu--_le._b_r -p-eh. «-r •wl 

EXEC SOL BEGIN DECLARE SECTION : 

VARCHAR oo-th[S0] : 

VARCHAR e-__»e[-0I ; 

EXEC SOL END DECLARE SECTION; 

BOOLEAN error - FALSE; 

EXEC SOL 

SELECT EXECOTABLE_PATH.EXECUTABIX.NAKE 
IHTO :op-Ch. :on_«ie 
FROM BILLING, PARAMETERS 
WHERE RO-WJM - li 

if l,qlc-..qlcoie 1- NOT_SQL_KRRCR ) 

( 

error - TRUE; 

error h-ndlerl-g-c_-x-cu_.ble.pc-. 

■■elec-ing «-_cu_--le info 



vgec ip-.h. kop-ch) ; 



return error: 





tiidef _SE<JUU I _ 
extern "C ( 

inc «hraget: lkey_t. inc. iat) ; 




unaigned long -procrw; 
bool_c tmatt; 

•endiJ 



»cxucc parj>erf_»eruec p*r _p«r; 
•cruet »eg_p«cf_«truct »«g_per; 

void «to»rt__ci«(ijit r«mar*_nr . »»rti_«cruct «ti»e_«rr»y. int «r)c_niimber) : 
void £ork_»«graent l»«gwnt_itruct *»«ga«xiL, 

cbmz *rg_li*t [ASG_COTIIT) [MXX_ARC_SIZE1 . 

inc mainline »ryc.en»r "»rgv) 

•crucc »»giTienc_»cxucc •f^Btnc,li«c.ic»rt. I itmcc ««9««uic_»eruct -IHUIA; 
struct je^nent^acruct -»egraent_li»L- l»crucc »egw-at_»cruct •1R0U.; 
UK. error-0.fiai»hed-0: 

inc »ftiiuty_err_»dj-0.cpu_nu»-0.»etj>-0,nuiib«r_of_cpu»-0; 
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int prrviouJ _proc»»«or-0 . uulei-a ; 
long nuaoer_o( _proce*»e»-0; 

ca*r «r9_ii*t|AM:_CDOirri in«_*ac_s:rri ; 

cJi»r Cmpmrgllll; 

ch*r or»cle_logtn|401 ; 

char biU_d*ttlUl : 



BOOLEAN repcrt._!Lg; 
char wp_err_.tr 1 10); 
!def _Stuutm_ 

xnc proce»._group-0; 

pid_c proce«s_gr-oup-0; 



ch«r billing_p»thlSl) : 
ch*r blll±ng_n»[21) ; 
ctwr tuU_billlag_o—e[71}; 



.cruet n.rk_» truce «»rk_tij»e_»rr ISO) ; 
pid_c currenc_pid-0 .- 

.print! I m_rk_tiae_arr 10) .wuk, 'CVBlAIi ") ,- 
■.rk_tJ.me_.rrlO] ..econd. - 01.; 

ipriazt la_rX_ti»e_«rT[lJ -reMrk, 'LOXD BMJWCE •) ; 
■ark_cime_.rrUl .u»ecan£i» - 0L; 
o-rk_time_^rtl] ..ecOTd. - 0L; 

«print£tm«rk_ti»ie_*rr[21 .nja-rk, -REPOKT GEREBATIOH •) ; 
■printf (_«rk_tine_-rr[31 .r««-)c. "THREAD FILE MERGE ■); 



««tbuf I .tdout . HOLi) ; 

/* Sec proce.. group .0 panlX.l «-a»9«r Ir.hi. prog™.) i. p*rt of i 
i£ ( tproce»s_5njup - .ecpgrpO) — -1) 

I 

•prijicl ltmp_err_.tr . 

"FAIL.- Pry, hi c to obtain procui group id for thi. bill i 

errdr_h.nrl I er 1 *p*r_nill . pe * . CWnroHH. tnpindejt_err_«cr) ; 
) ' " " • 

/* Validate crmwirt line 




•dynaoj.c_loac_£la9l0.1) r*pon.a_£lag (0 . 11 ■ 




apri.nt£ (blll_d«c«. Ma".are/v(2) ) ; 
■pnncf loracle_logln. •*»• .argv[31 > ; 
a-prmt£ (coB«aac_£l«g. M»*,argv|4) ) ; 
aprmcf It7veride_£l»g. "*«" .argvlSl ) ; 
»prxnt£ (dynaaic_load. M»*.argv(S) ) ; 
reparxa_£lag - acoi largv [71 ) ; 

number_o£_cpu» - gec_epua(): 
pnncf ("Number o£ cpu« - %d\n' .nu»i>er_o£_epu*> ; 

/• Xllov uier co aaaign •cgrscne llac or »ec via available cpu* •/ 

i£( large >- 9) ii large I- 10)) 

f 

number_o£_»»g»anca - acol laxgvll) ) ; 

) 

elat 

I 

) 
( 

priac£ CAHCS acarT - %10.1O« and - %10 .10»\n- .axgv [91 , argvtiol ) : 
«princ:£ lacarT_acTount. *\s* ,argv[9) ) ; 
aprjjicf lend_account. •*»■ .axgvUO] ) ; 

) 

else 

{ 

sprintf tcB^>_err_»cr, 

•Tliia bacch will bill «viery account for narket %»*.«ar)iet) ; 
error_handler (•par_bill.pc*. UNJOTOIOI. cmp_err_atr) ; 
acrepy t»xart_aeeouac. •0000000000* ) ; 



* load coeaoand line a 

( loraclcLogm (oracl<:_login.NClX) ) )• -1) 

/• Allocate anared amory bloc* for manager and 
/• i£ not exiating •/ 
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/• »aioc«ce .rv»r«d ~~ory »c ent tor p«r»llel bill run •/ 

ahaill_td - twntc iahaiu_*ey. 

lOtiC | IPC_GUU7) I . 



• else 

• endif 



aprxntf (tsp_err_atr. • 

■Snarad mmiy allocation tor »d: attempt tailed.', 
ahbilljcey) ; 

error_ba«dler t*p*r_bill.pc' .tWXNOWN. tnp_err_»tr) ; 
exit 10) ; 
■ Get m« key If in uae •/ 



•iwddrm - aittaaclabbill^id.O.O); 

lenar •libHCKUUIJ 



abnill_id) ; 
error_handi er ( -p*r_t»iU . pc • . 



) 

elae 



parjjer . atatua - 1; 
p*r_p«r.load_bal_tiB»e • 0; 
par_per.rpt_bu±ld_ti»e - 0; 
par_p*r . rpt_»er3e_tla« - 0; 

•cmcpy Hfconaddxeaa . ip*r_per. iliaof (acruct p*rjper£_it 



}/• allocate abared «nory ok -/ 
}/* Allocate anaxed memory tor inter proc*aa u.»nn>m , i cation */ 

if (error - get_«ecutable (billing^j>atb..billing_na»e) I 

( 

error_bandler ( "p*r_bill.e" , UHJLNLalS. 

•Dnable to find billing executable naac-1 ; 

exitlOl; 

} 

elae 

{ 

eprintf I £ull_bill_lng_na*»e . **a/*»- ,billi»9_p«th.billiog_na 



princf ("market - 11. 3a no* - %ld nop - * 
. marxet.nvimber_of_ae>jn«nta.number_ 
pruicf (*»t»rt - %10.10i end - *l0.10a\n' 



»eo_p«r . aeg_billa - 
»eg_per .aeg^accta - 
aeg_per . aa5B«nt_aun 
' eegjper .procoaa_id 
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»«rg_per.proc«».or - 0; 
»eg_per . runnxng - 0; 

• eg_p«r. complete - 0; 
aeg_per.alo~_ex-« - «; 

• eg_per.laet_tiB»e - 0; 

»egjwr.lMt_eu*t_Cine - 0: 
»«g_per . elapead_ti»e - 0 ; 

aeg_per.bill_count - 0; 
»eg_per.»cct_eount - 0: 

weepy laeg_per.last_accounc. ' numm '.W ; 
nctncpy I ■ eg_pe t . 1 » » c _cu* t . " XCOCCQOOCC* . 10) ; 

( 

I (index - 1) • 

elxeo£ (struct »eg_pcr«_«trucL) 
»e«cpy <»fsnaddrei«_«.4aeg_per.»ixeo£ latruct »eg_perf _«c.ructl ) . 

J/* Inxcialxxe #h*red ■•aory lor aaca rjiraagment. •/ 

/* Get lead distribution (procaaaiog •agaenta) •/ 

■ha»rH_ci«« (1 ,aaxx_ci»e_ax-r. 1) ; 

error - get_di«tribution lfcaeg»ent_li*t. 




par _per.acar.ua - 2; 

neeicpy < ahmaddreaa . ipar _per.»ix«o£ (acruct pax_perf_atrucc) ) .: 
aeoment_li*t_»t*rt - aegmenc_liat; 

/' Don't need database anynore. '/ 
oracleLogout ( ) ; 




pr_nt£ ( *Ud\n- , aegment_lijit->aai3 



aeg_per.»eg_bills - »egment_liat - >caiz e ; 
aeg_per . a»g_acet» - aeg-«nt_liat--esixe.- 



■i*«ofl»c» aeg_p«rf_»cruct) I )) ; 
■eoepyl»nmaddre»»_». fca*g_p«r. anaof latruet. »*g_p«rr_«crucc) ) 

•egn«nL_liat - aegment^liet-^inx; 



/• Sec up non aag«enc-epecifie argument liac execucion •/ 

•print! Iax5_liatl0) , Ma- ,billing_na»e) ,- 

•print! (»rg_ll«ttlj . ■%»*,««rt«tl : 

•print! l*rg_li»t 13] . M«-.oracle_login) ; 

aprmc! l«rg_liacl«] . Ma- ,bill_date) ; 

aprinc! larg_liat(SI . "%a- , coo»ic_flag) ; 

•printf lerg_liat [t] . , over ide_f lag) ; 

aprintf (arg_llat C7J , *S*I ; 

elae 

•princf Urg_li«e (7) . »P-> ; 
•princf (arg_liat 112] .•%••.") .- 

{ 

/• create child proc»»» •/ 

f or*_«eyncnt (»egaent_liJt . arg_liat . ehMrMr eaa . 
full_billing_na-e> ; 



/- if aucceeaful cork, handle next aegiaeat la liat */ 
if laegmenc_liac l- laeg»enc_axxuct '(HULL) 

( 

eeg™eot_U»t - •eg*«nt_liat-»nn)c; 

) 

elae if I index I- mnaoer_of _procaaaea ( 

{ 

•princf ( cBp_err_»ttx . 

•warn-. Exfcauaced aegwnit U»c »e %d before ■ 
• reaching last IVdth) aegaent.*, 
index, number_of_proceaa«a> ; 

error_handJ.er("pax_bill.pc'.CIRlCHC»n),CBp_err_»cr) ; 
)/• Make aure finiahed when liac i» exhauated. •/ 



aegtnenc_liac - •egmeac_liat_acarc: 

vhilela«g«ent_LUt I- (etxuet aeg»«nc_acxuct *)KOU.) 
( 

/• Puc proceea 10 inco ahared neaory for rhi« eegnnenc •/ 
( (index - 1) - 

aireof (aeruct eeg_perf_ecrucc 
~twix^lka«^_per.ahj«dox»aa_a,aiieof lacruct aeg_perf_acxuct) ) 
eeg_per . proc»aa_id » aeo»enc_liat-»procBaa_id; 
printf CSSJUIED MEM PROCESS ID »d »*d\n* ,aeg_per ,proeeaa_id. 

aeg_per . a»g=ent_number) : 
a«ocpy(ahmaddr»aa_».taag_per. laixeof lacrucc a«g_pexf_acruet) 
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/• Monitor pid-« »nd fork »» rt«eded until »egiaenc_li«t exft»u»ted • 
currenc^pid - «*itpid(Q. iproc»»»_»t»tu», 0) ; 
if I lcurrenc_pid I- 0) " Icuttcqc _pid l- -111 
I 

pcuitf I "yood proc»»»_»i»tu» - »d\n" , proce»«_«t*tu») ; 

/• Find eegiaent «nd proce»»or numb er of thi» proce»» •/ 

/• tor reporting. •/ 

•«gmonc_U»t - »ogu»ent_li«t_«C«rt ; 




while ( l»ogKnc_li« I* lacruct »«gwenc_«crucc "(NULL) ti 

( 

if (»egment_li»c->prt>co»»_id — currentjiid) 

( 

index - ••9«nc_li«c->»«g»«nc_nunber; 
previou»_proc«»»or - ■•gaent_li*t->proce»»or,' 

) 

el*e »eg»«nc_li« - »egt»enc_li»t->l.ink; 
)/* while looking tor »»ow«nt th»c ««tcna» CA1» pi<S •/ 

if («FEmn>lproc«»«_»t»Eu»l i- o) 

I 

if fwECITSTAXQStprocM»_*c»tu») — 0) 

{ 

printf ("DTTECTED SO £3UWR\n*> ; 
If exit w*« ok. then fork «noeher »*gneot while «»re i» left. «ceouoeiog 
tor segment ju«c completed in the »egmenc lilt. 

»ego>eot_li»t - »«i ji ii>, ii t_liiit_»m3rt ; 
accounc»d_for - 0; 

(»eg«nt_li«t I- l»«gment_»truct *)BUL1,> I 

( 

/• Mark »egment u completed •/ 

if tcurrwat __pid — ••g»ent_l.i»t->proe«»»_id) 

( 

»egaent_li»t->conplete - »ccounced_f or - 1; 

else »eg«nt_li-»t • ••gMnt_liat->link; 
} /* Account for »egment 3uat comp leted "/ 



if (1 account ed_f or) 

< . 

■printf lt=p_err_»tr . 

•HASH: Proceae *d naming aegnent ? * . 

current_j>id) : 
error_h*ndler ( "p*r_bill . pc * . UHUtom . tap_erx_»cr ) ; 
) ) 

/* Pind next aegraent to be executed •/ 

»«gment_li»t - »eg»ent_li*t_«t*rt ; 
while t (aegn>ent_liac I- 

(•cruet aeg™«nt_*truct 'HUffi! ti * 
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if I l»eg»«nc_Uet.-> 

l**gnanc_lX«c->COB^>lace — 0)) 

I 

/• Fork another eegnenc Co replace completed one. */ 
£ork_»eg»ent I •«9Wlt_lX»t . arg_liat . anaaddreea . 

tull _bUllBSr_na«) ; 

• » eprintf ttwpargl. "pid created: *d", 
eec«ene_liec-»procea»_ld) ; 
princf I • tmpargl - ee\n - . tapargll ; 
found • I; 
)/* Fork a o*v eeonenc •/ 
elee aeg»enc_liat - eegr.ent_Uec->liak: 
• While looking cor nejct aegaent to execute •/ 



if (Hound) 

( 

finiahad - li 

/• Run »anager ia tlniehed. •/ 
)/• If _«xlt(OI •/ 
elae 

I 

princf t "DETECTED ERROR \n" ); 



If exited due to error, kill all e 



aprintt (t«p_err_Bcr. 

'FAIL: Procmaa *d running ee yen c %d * 

•terminated with error. - , 

o mitt jtd. .I n dent) ; 
error_hanAlex(*pax_bill.pc*,nsiJiWIN,tap_exr_»tr) ; 
par_per . atatua - -Is 
■enepytabaaddreea. 

aparjwr.aixeof (atruct par_perf_etruct] J ; 



eiieot (atruct aeg_pei-£_atrucc) ) ) ) ; 



kiUIO.SIOCIU.) ; 
)/* _«xicU> -/ 
}/• proceaa terminated normally •/ 
elae it (WIFSIt30aEDIproceae_et*tua> I- 0 

I 

printf ( "DETECTED UTTJ An*) ; 

/* Report thac proceaa ma killed as 

/• all otnatra before exiting. •/ 

epriact I tmp_err_atr . 

TAIL: Procmee td running »• 
■killed by eignal %d". 
current _pid. index. WTERMSIC Ip 



. ipex_per , aixeof latruct par_perf_etruct) ) ; 



< (aegi»enc_liat->eegment_mimber - 1) 
aixeof latruct eeg_perf_atruct) ) ) I . 
ldrea»_a.fce«g_per. 
it latruct aeg_j>erf_ecruct> ) ; 



princf ( • DETECTED CORE\n'); 

■princf (cap_err_»ci. 

■FATL: Procaaa »d running n^Kin »d »aa ■ 
•tilled by »ign»l id eiuiing core dump . * . 
curxnnc_pid. indnx. WTERMSIG lprocee«_«c«cua i I ; 

«rror_handler t -p«x_bill .pc V fflncxovN. o=p_err_»cr ) ; 

par_per.«t«tu» - -I; 

■mcpy l»hm*ddrme«,kp«r_per,»ixeof (»cruct par _per £_»cruct I 
•eg_per . running - 0; 
»h»«ddro»«_« - I« l»»r1rt r»»» » 

(•iicaf («cruec p*r_p«rf_»cruet) - 
( (eegBwnc_li»t->«egwent_num&er • 1) " 
■ixeof lacrucc aeg_p«rf_«cruct) I ) ) ; 
emtnepy I » h»«ddx e«a_« . t»eg_p«r . 

•ixeof t»cruct »eg_p«rf_»crueT.) ) ; 
kilKO.SXGXXU,) : 
)/* Core dump •/ 

•lae if t«TOPSIGIproe«ae_»tacue> I- 0) 

{ 

princf ( 'DETECTED STOP\n'l; 
■princf lEBp_err_«cr. 

*FATL: Proc*e» %d running ■sgsamt %d wu ' 

■»ccypp*d by signal %d.*, 

current jid.indea.WTERMSI<l(proc»a»_»tacua) ) ; 
erix>r_hJU3iller(*p«r_bill.pc".asxHOW.acp_err_»cr) ; 
p«r_per.«t*cu» - -lj 

■e«rpyl»hm»ddre»», tn*r_per, aixeof I acrucr p*r_perf_a cruet) 
»eg_per .running - 0; 

l»ixeof (acruct p*r_perf _icruct) - 
I leeg««jjc_llet->»ege>enc_nu=be.r - 1) • 
■ixeof l»cruec »eg_j>erf _«cruct) ) ) ) ; 
■ea>cpyt»n»»ddxeee_a.i««g_per. 

■ixeof iBtruct eeg_D*rf_»truec) ) ; 
kill I0.SIGXT1J.) ; 
}/' Scop tisMl •/ 
elae 
{ 

princf ( "DETECTED UNKNOWN COSDmON\n' I : 
■princf ltinp_err_»tr. 

■HAM): Proceaa %d running segment *d " 

•effected by aigne.1 %d.', 

eurrentjid.in«iajc,l«TER)GIGtproceaa_at*tua) ) ; 
r_bill . pc* , UHWOW , cmp_err_»tr) .- 



— cpy li nUdr til . tperjjer . »lseof laexuee par__pexf_»cruct) 



(aixaof lacruct pax_perf_acruct) - 

■ ixeof lacrucc ■eg_perf _ierucc) ) ) ) 
nemepy 1 aha«dax«aa_» . fcaeg_p*r . 

■ixeof (■cruet »eg_perf_»truct> ) ; 
kill (O.SltSKLU.) ; 
)/' Unknown signal -/ 
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l; lcurTrnc_pid « -II 

I 

prjjcf I "proceaa^tatu* - *d\n* .procae«_»caeual ; 
eprmc£ <tBp_err_»tr. 

'\txns. aonicarlr wait pid i* finntied. * 
•Parallel ■onltorl li ctrnlMCinj.'l; 
error_h*ndler ( *p*r_bill .pc- . CNWOWN. cmp_erT_»cr I ; 
tiaiined - 1: 
)/• wait pid error dump •/ 
else 
( 

printf (*proeoa»_»t»tuj - %d\n" . proce»»_»t*tual ; 

eprincf (cmp_erT_etr. 

•HARN: «otucorl: No ecacua »*» returned . • ) ; 
errorjianiller ( «pex_ bill .pc" . OWIQJOWN. tinp_err_etx) ; 

■ Imp 151 ; 

It lwalc_eount HM.WIT) £ixu..h.d - 1; 
)/- wait pid error dump •/ 
}/• Problem* wlUi xie pid •/ 
) /• maintain X proceeaea until *11 aegmenta «e completed •/ 
pruiCflTlMISHED HOJirrOR.^n-) ; 

finiahed - 0; 

( 

/• Hani. cor pid* until all barve completed without error*.*/ 
/• removed no hang up WIOWSC «o it enouid wait till •/ 
)• .oMChxng bappen* •/ 

currenc_pid - waitpid (0. fcprocm»»_»t*tu* . 0) ; 

if I tcurrent_pid I- 01 44 lainrot jid I- -1) ) 

I 

print! I 'good procea»_*tacu* - *d\n' ,proc»»«_»t*tu») ; 
if {»r tmm) lproee»»_imu»l l- 0) 

( 

print £ I •DETECTED HORMAIAn' ) ; 
if (VEXITSTATOS lprocea-_*Cacu*) I - 0) 
{ ' 
prlnc£ (•DETECTED SXRdRXn'} s 

It exited due to error, till ail octwr augment*, report error. and die. 

■prlntf ltmp_err_»cx. 

"KXTI.: Procme* %d running »«gment *d " 

•terminated: with error. - . 

eurrenc_pid.indejt) ; 
error_b*ndler t "p*r_bill . pc" , UNUHMN. aqp_err_»tr) ; 
p»r_per .atacua - -1; 
■VABCpy (anmadareaa. fcp«r_per . 

aixeof iacruct par_perf_atruet) ) ; 
a«g_p«r . running - 0; 

laixeof latruct p*r_perf_»truet) - 
( (»«^ww m t_li«C->»egew J nt_nunib«r - 1) 
•ixwof Iacruct eeg_pexf_*cruct ) ) ) ) ,- 
memcpy 1 *hmaadreaa_a , Leeg_p«r . 

■i*eo£ Utruct »eg_p«rf _«trucc) ) : 
laUIQ.SICKIIi) ; 
>/• _«xit(l) -/ * 
)/• procea* terminated normally •/ 
elae if IWTFSIQtXlXD lproc«*a_«cacu*l I- 0). 
I " 
printf ( -DETECTED miAn* I ; 

/• Report tnac procea* wa> killed and kill all */ 
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•FATL: Ptoc«»« Id running »«gi*enc Id »«» tilled ' 
•by ngrMl Id*. 

currenr._pid. i_nd»x. HTEJIMSIC iproco»«_»r.*Lux) ) ; 
error_ handler I -p«r_bill . pc- .DtncSCMN. omp_erT_«trl ; 
par_per.»c»cu* - »1: 

fcM< - J yl,lim»dilro»i.ip«r_j«:r.»iieo£ l«truct p*r_perf_itruct) ) 
• eg_per . running - 0; 



l»ixeo£ Ucruet p«r_per£_«c 
I U»9«nc_ll.»c->«e9menc_r 
•ixeo£ l»crucc ••g_p«r£_» 



• ixeof (■truer. »eg_p«rf_i 

kill (O.SIGTIU.) ; 
)/• tilled try »ign«l •/ 

el»e if fVIFCOR£SICtproea»»_«c»-.ua) 

elseiflHOTRnJUMPIproceaii_aca-.ua> I 

( 

prxnt.J (-DETECTED CORENn"); 



•FXTL: Proctui *d running aegmenc Id «»■ • 
•tilled by aignal Id causing core dinnp . *. 
curreac_pid.lDd«x,irri3»lSIC(pTOC«»«_»t«tu») > ,- 

error_ha__Uer I "p«r_bill . pc' . UHXMCMH, cxrp_err_at_r) ; 

p_r_p«r.ac*cua - -1; 

r»e-acpytBb-Mdcur«a I .ip_r_per.aix_of lacruct pax_p»rf _atruc_ ) ) ; 
aeg_per . running - 0; 



t l»egmenc_li»c-> 
aixeof l«cn 
memcpy (»hm«ddx«»»_i , t»eg_per . 

aixeof (ecruec »eg_p_rf_acruct) ) ; 
killlO.SZGXZXI.).- 
)/• Core dump •/ 

elae if IHSTOPSIG lproc«aB_BC«ua) I- 0) 

I 

princf ( •DETECTED STOP\n'l; 
apr_ncf t cmp_exT_itr , 

"FATL: Procsaa *d running aeg-eent *d «•« ■ 

•■copped by aigiial Id.". 

currencjid. inrtmr . inTRMSIG(procea»_»cac-a) ) ,- 
error_handler t "p_r_bill . pc" . u-fnCNOW. cxrp_err_acrl ; 
p*r_p«r.»cacu» - -l; 

raracpyUhra_dareaa.i,p*r _per. aixeof tacruct p*r _perf_«crucc) ) ; 
eeg_oer . running - 0 : 



■ixeof (acruct aeg_p_rf _at 

k.ilKO.SIGXILi.1 ; 
)/• Scop aigo_l -/ 



if lcux-renc_pid — -1) 

I • 

printf ( •procen_iucui - »d\n' , procn«»_»c»tu» I ; 
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•xwm-. KjiucorJ: pid i» fiaiened. • 

•Parallel awwager i» terminating. •> ; 

erTor_ftandler I •p*r_bill .per" . unknown. tmp_err_»tri ; 

£iniened - l; 
)/• Mic pid error duap */ 

( 

princi l"proce»a_»tatue - *d\n' ,proceae_atatua) ; 

epnntf (tmp_err_etr. 

•WJJW: ■onitor2: No acasua «a« returned. 'I; 
error_ handier I -p«r_bill . pc" .BVXNOWN. t*tp_err_«trl ; 

•leeplSI; 

it lwais_count — MWCJUIT) finiehed - 1 : 
}/• Pnblnu with wait pid •/ 
princf ('FINISHED WQNTTOJ! J.Sn*); 
eegmenc_Uec - •egmonc_li»c_ecart : 

while (eegment_liet I- lecruet •«g™e3ic_etruct •)HtBi) 

( 

printf (MJ.Ja •.■axltec); 

princ£("*e • . eag«nc_liet->rpc_filel ; 

printf (Ml.le:-.conttic_£lag) ; 
printf I '\1 . 1» : • . ov«ride_f lag) ; 
printf (Ml. la " , aynamic_lo«d) ; 
princf CilO .lOa '.bill.dJite) .- 
printf t*%10 . 10a ■ . aegwjent_liat->b*gin_acct) ,- 
printf ("tlO.lOa •.»«g»cnc_li«->«iJd_«ccc) .- 
princ£l"»a " .■egment_liat->acdout_£ile) ; 
printf ("%d: • , aeg»ent_HBt->a«g«nt_aunberl ; 
prinf C*d: •.»egment_li»c->proceBS_id) .- 
printf I * %d : * , aegm cn t_liac- >procnaaoT) ; 
printf l**d: *.aegmcnt_l,l«t->rurnTing) ; 
printf (»%d * , aegtnent_liat->co=plece) ; 
printf ("%ld •,aegaenc_liat->c*i«) ; 
printf (Mld^* .a«g*ent_llat-»»ei*e) ; 
aegiBenc_li»t - Beg»enc_li*c->lin>c.- 
)/' Stunt acate o£ eegnent li»c when parallel manager terminated. 

)/• If not error logging into Oracle •/ 
el.e 

( 

error_handler (*par_bill.pc".QHXHO*IH. "Can't log in to ORAOX'I; 
error - TRUE;. 
p*r_oer .atatua - -1: 

}/* If oracle error logging in*/ 

/* free eeginenc liat «»ory */ 
aegnenc_»t.iruCT •eegment_tfflp - aeg»ent_liac 
while laegmenc_li«t) 

( . 

»egmcnt_liat - eeg=>ent_liat->lin>t; 
free laeg™nt_tmp) : 
»eg»enc_eap - »egn>rac_lisc ; 

} ~ 

if UoracleLogintoracle_login.KaLL) ) I- -1) 

( 

iflllerror) ti lreporta_f lag) lnoaber_of_aeg»eot» > 11) 
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- e*gment_liat_acart ; 



par_per.»t*tua - 3: 

«<mcpyl»h«.tlilr«»».ip«r_p«r.»ixeo£ latruct p*r_perf_«truct) ) ; 
error - prc_bin_rpt« l«ark«t.bill_aate.numt>er_oI_»eg»ental ; 

««iricpyl»hjMddja*«.ip«r_p«r.ei»ooI latruct p«r_peri_atruct) ) ; 

/• Merge utility not inatallsd •/ 
»naar*_tiTneU.n»r*j:i"»e_»rr.l) ; 
par _per.*t»tu» - «; 

wemcpy (»bn*ddr»»».ip«r_per.»iieof letruct par_perr_«truct) J ; 
/• error - a»rge_bill_rpt» I ) */ 
»hmar)c_ti«e(J,»ar)c_tia>e_arr.J> ; 

■encoyUhm»ddre»».kp*r_p«r.*i»eo£ latruct par_per£_»truct) ) ; 

)/• generate report! it aelected •/ 
)/• It noc error logging into Or»cle •/ 
elae 

I 

errorjiandler l*par_bill.pc'.tnnorowil, 

'Can't log in co ORACLE for reporting'); 

error - TRDE: 
)/* II oracle error loggiag in*/ 

( 

erTor^hamiler I *r>»r_bill .pe* ,Wt}KMH. *prt_bill_rpca returned error* 
par_per.etacua - -1; 

iwmcpy lahmacJiireaa. vp«r_pcr . aixeof (atxuct pax_p«erf_«cruet) ) ; 
)/* generate report* •/ 
el.e 

{ 

par_per . atatua - 0: 

meacpy t»hm«ddxe«s.fcp«r_per,«ixeot tacruct p*r_per£_atruct) ) ; 

I 

/* Don't need dat»b*#e anymore. *,/ 
oracleLogoutl) ; 

shia»rk._time ( 0 . »«r)e_tiBw_aiT . 2 ) : 



/• Set up aegaent apeci 
aprintf l*rg_li»t 12) . •*»" . 
aprintj l*rg_liat (81 . **d*. 
aprintf («rg_li»t (91 . '%•*. 
aprintf t»rg_li»t [101 , *%•• 
«princ£Urg_li.»tUl!, 
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(• flu*h before fort to •void «*dio JUe inconsistencies •/ 
fflushlscdoue) ; 



if ( l»«gront->proc««»_id • vf or* ( ) ) — 0) 

{ 

/« Sec »tdout descriptor to close on successful exec only. 

fcntiu.r_sirrn).ii .- 

/• Exec a bill secmenc •/ 

if lexecl (executable. «xg_list [01 . 

arg_li»t tl] . 

»rg_U«Ul. 

•rg_lisc[3]. y 

arg_li«c[«l. 

■xg_list [SI . 

arg_li»t(S]. 

arg_list [71 . 

■rg_list[8). 

»rg_lisc[»J, 



arg.li.UUl. 
«rg_li»t(i2H -- -1) 

( 

rprinci icmp_err_«cr. 

•PAT1.: Failad to «ec aegmenc W , aegmenc - »aegm«nt_r 
.iTor_h«ndierCp.r^MU.pc-.tnno»owi.cBp_ e rT_«crl ; 

p*r_per . acatua - -I; 

«emcpy(an»addxe»a.*par_j>«r:aixeo£ lacruct p*r_perf_»crucr.) ) ; 
»eg_per . running - 0 : 



lat*eof lacruct p*r_perf_«truct) - 
( (»Bg«ot-»»eg»enc_nuniber - 1) * 
aixaof (atruct aeg_perf _«cruct) ) ) ) ; 
wtn ic py ( annaddxe»a_a . fc»»g_p«r . 

■ ucof licrucc acg_p*rf_etructl ) ; 
/• JUH.off procaaa yroup firat. then exit -/ 
kill IO.SIGKILL) ; 



->proceai_id I- 0) 



printi ( "proceaa craated - *d\n',aagwent->proc«aa_id 
* Parent ahmild log ••gwent aa a running aagmene •/ 



int aequenti»l-0; 



struct cm «loc_C 



if (cuixiae - ti«r(0)) 
( 

ioc_Cinw - loe»lCine(4 
/• determine the elapaed cia« aince the laac oar* "/ 

if lmarfc_miniber — 1) 



rfc. aacciaw (loc_c 



:('*a - tin* elapaed eixare laat etark; mci *£\n\, 
ti«_arraylre»ark_nrl .rroaxH. 
(float) ( (float) ci 
(float) 



p«x_p«r . load_bal_eia« - 

curtiae - ti»e_arTaylr« 
I " 
elae if lreaax>:_nr — 2) 

{ 

par_per.rpt_build_tia>e - 

curtioe - Cine_axrayln 

_ ) 

"elae i£(re»*rX_ar — 3) 

I 

par_per . rpt_aerge_cit»e » 

} 



arr»y lrw«rx_nr! .»bcoo<1j - curtl^e; /• pu conversion •/ 
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•delin. Kja_PKOCS 50 

•ae'ine ma_*AZT 100 

laerxn* AJtC_CW3NT 13 

«a«£uie HAJt_AJtC_SXZ£ 30 

• aetine SHWlED_«>l_«XTf 10 

•include <«y»/typ*» .h> 
•include •p«r_«*n_proto.H 



■artecUl; 

rpc_Cllel251 ; 
or»cle_lo9in!H) ; 

o«ride_£l»gUl ; 
Sill_d*c«[ll) ; 
t»eflin_»ect(lll ; 
end_»ect!ll] ; 
icdouc_£ile(251. 



•ltdef 
»el»e 
•endlf 



running; 
co-plete; 
»egraent_icruct 'llnX; 



acruct accx_ranc;e 

I 

char begin_acec 110) ; 
char =nd_acct (10) ; 

}.- 

acruct Mrge_atruct . 



•cruet merge_«e 



struct «eg_perf_«truct 



»eg_t>illa; 
»*9_aceta ; 




•cruet p*r_peri_»cruct 

( 

inc »«gwenti i 



long rpt_merge_tl»e ; 

)■ 

/' *cacu* v»luts delinition 
» 0 - ceruiucid nor»*lly 

> 0 - »t»tu» (1 - lo*d; 2 - bill cue; 3 - i^rporc build; ♦ - rwporc a 
< 0 - itaonul terauution »ign*l code 



• mciuOe *p«r«li<:l/p*r»Il«l 
•include <»yi/tmp_ct.i.ft> 



/• de£»ulc cpuj lor < non-p*r»l 

/• Get number o£ CFUi •/ 
lifdei _SEOCBTT_ 

cpu_count - <rpuj_aaline () ; 



* De«cnptaon : The Billing rynim «rror handling routine. 




•include <tiae.h> 
•include ■bglobal.h" 
•include "vt;_error.)) 



c error_eode.ehar -info) 



/- char -info - addi tioml infonaatian e.g. Illnne of opes tile */ 

FILE «fp; /• file pointer to error log file »/ 

char M»«ge(BUt_KESSAC£_LB)CTB>l] ; 

ch»r "err_log_tn - "vgerr.log"; 



* print any additonal inatructiona and * 



Caae TAPEJIEAD: 

etrcpy Imeeaage, 'error r 



ZAMt FILEOPEN: 
apriaefl»eaaage. "can't open file *-«*.infol: 



eprintf (aeaeage.'can-t cloae file »-e".iafo); 
break; 
ca»e FWRXTE: 

aprincf Ineaaage. "f write error in file *-»".infol .- 
break; 
ca«e FREAD: 

aprintf Ineeaage. "fread error in file %-»".infol ; 
caae FSEEX: 

eprintf Ineaaage. 'feeek error in file *-»*.info); 

cue OkaCLELOG: 

acrcpjMHeaaage, "can" t log on to oracle*); 

caae nuirrrmtiTt ■ 

eprintf Ineaaage. "can* c create the table l-e'.info) 

break; 
caae OlIAfTiFlWSmi ■■ 
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cue ORACLEDELTTX: 

•princf l-ee«ag«. -can't inaert »•» * . info) .- 

cmb9 O HAC ESPX CT : 

eprincf i«-»aage. 'can't aelecc ♦ -••.info) .• 
broaX; 
c»»l: nairr.rmmxTF- 

•pnntf iMMtgc, 'can't updace »-»".info>; 
break; 
ewe ORACLaroTFOOKD : 

aprintf tmaaaage. 'table not found »-»'.infol: 

caae SYS_EJWOR: 

rpnncf iKiugc. -oimoc execute Che ayete- call %-f".infOl; 
bre»X; 
default: 

aprintf Imeaaage. "uWOIOtW error »-»".inio); 



/• write Che error miujc co che error log file •/ 

/• if Che log tile doe* not exiat Chen er-ace lc -/ 

/* NOTE: The uee of *»■»' to append end/or create co append ia not in •/_ 

/* accordance vith the anai etandard and mmy cauae upgrade and/or port */ 

If I (fp - fopenlerr_log_fn.-a.-l) I- KM.) 

( 

( 

fprincf (fp. error in km : %e\n' . eti-eltoirci--) . 

) /• if cine of day -/ 
elae 

( 

print £(*\nGan't get the ciae of day v*lue\n") .- 
| /• elae error -/ 

if (icloaeffpl) 
( 

princf I 'NnFrror handler: can't eloae che error log fileXn*).- - 

prxnc£I*»a error xn %a : \*\a" , cti-e (iciurcime) . 

) /• if fcloae •/ 
} /* append to exiacing or open w log file •/ 
elae 

( 

princf (*\n£rror handler: ean'c open the error log £ile\n*); 
princf I'Va error in «a : »e\n" , eti-a Ucuxum) . 

) /• can't open error log file •/ 




BCCiiV) prt_biil_rpt»(ch«r -»kt,cS*r •billdate.long »e9»enC i _counc I ,- 
B00t£AN get_«jteeut*Jsle(cai*r •p*LB.Cb*r -nrael ; 

• eiuiil /• _PAR_M*N_f>ROTO_H •/ 
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•blll_alobal.il' 
•bill_acruct.Ii' 

: -atddevlp.h' 

_SEoonrr_ 

<»y»/cmp_CLl.h> 



•taxlib.h' 
: •biH_proto.h 



•ifdef _SEyUENT_ 



global for diac 



_tab_atruct cracle_tablaa(10I .- 



■pragma aeguexic_expaiidable Iprincf (1 
EXEC SQL BEGIN DECLARE SECTIOB: 
•tatic VXRCHAR uid(80]; /• ui 



iprintf ( ) . nsncpy ( ) . i 



irtcae(3] .1- bill dace validation kludge •/ 
static char obill_dace Ol ; /• bill dace validation Kludge -/ 

static VAROUR obill_dattZ (10) ; /• cbp - bill dace validation •/ 
icacie V3WCHWI obill_date_t««ttl01 ; /* tap - bill dace validation « 
DEC SOL END DECLARE SECTION; 
•undef SQTJZKjms&GLjmSS 
EXEC SOL IKCUB3E SQLCA..H; 
EXEC ORACLE ' OPTION (MUOFEKCDRSO8S-30) ; 



GLOBAL Tax Interface 
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/• Clonal aegment perlormartre «onicoring acruct •/ 
• truce »eg_perf_atruct «^_p^rf .- 

mainline argc.enar -*argv) 

( 

ai.ru.;.; rev_b. - _t.*.'i *rcv_liac » latruct rev_by_eac »>.t T 7T.L;/* fte-venus by charge */ 

FILE "pfp: /* print £ile file pointer •/ 

FILE -bdfp: /• bill detail file file pointer */ 

register FILE *tpf p; /• c<nnpor»xy print file file pointer */ 

r«gi»ter FILE •tbdxp; /• t«nB»r»ry bill detail file file pointer •/ 

BOOLEAN error - FALSE: /• error flag •/ 

BOOLEAN found; /• found flag •/ 

caar print_fnf80J .- /• print file n*a* */ 

cnar print_tnp_tn(»0) ; /* t«mp print file naae */ 

cnar bill_im»ge_fn[sal ; /* bill i»age file out */ 

char Bill_ia.ge_tnp_£niiO] ; /- tap bill i»age file na«e •/ 

char bill_aumary_£nl»01 ; /* bill nmiy file one •/ 

char market Ml; /* market id to produce bill for »/ 

atruet »vitch_mkt_»truet market_ree; /* market information record •/ 

■truct narkec_e«ll_»truct »markec_call_Liac - la cruet »arkee_eall_acruct *)HULL; 

/• call liae by market ••/ 
acruct rate_plan_atruct -rate_plan_liat -latruct rate_plan_atruct •) NULL: 
/• rate plan liat •/ * 

•truce eotal»_atrucc totala; /• totala by category and caxe< •/ 
mrraaet Ifctotala . NOLL. aixeof lcotala_atruct) ) ; 

•truct tocali_acxuct current_caarge_totala ; /* liat of total* for current 

. cbargaa table update •/ 
■maec Uc\irTTrac_ebargc_ totala .NULL, aixeof lcotal»_atruct) ) ; 
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. - (struct collect_»d]_struct 'INDIX; 
. Istruct adjust=»tnt_struet ")Jnm.; 



c-_scruct *fyi_-»s»ages -Istruct tyi^notlct 



• cruet d»te_stxuet bill_date; /• bill cutoff date */ 
struct <Uce_struirt period_date : /• billing period start or and date -I 
struct d*t-_struct due_date; /* bill due dace */ 
struct dace_struct pror»te_to_date; /* prorsce to date -/ 
struct d«ce_«cruct pror»c-_fron\_d 
struct dat-_scruct «ccivation_dace; /* cuati 
struct d»te_atruct deactivacion_dace; /* customer deactivation date •/ 
struct d»t-_«cruct au»pend_date.- /* cuiciwr suspend date •/ 
struct d*te_scruet of fsec_displ»y_dace; /• bill date - offset-/ 
int i; /• loop control and inrtwi ng */ 

/* airtine sxstsnary for reporting •/ 
struct report _form«t rev_rpc_struct : /» account receivable report structure */ 
struct report_f ormat ar_rpt_struct; /• account receivable report structure •/ 
char **»s_rpt: /" pointer to airtiae svsssary report •/ 

struct reporc_£ormsc as_rpc_atruct; /• »irti»>e svnonaxy report structure •/. 
char *-tas__rpt: /• pointer to toll and 

struct report_£ormat taa_rpt_scruct .- /" coll t 

(struct toil_aircis>e_scruct 'IduU; 
/* toll and airtime au=»aary for reporting * 
struct total«_»truct total_non_eall_totala /• nan call totals for starket 

memset (ttot»l_non_call_totals.snLL.six«of (tocals_scruct) 1 ; 

•true: call_cocalj_scrucc tocal_call_totals; /• call totals tor market*/ 

raemset tktocsl_call_cotala .SOU.. siiaof (call^totals^struet) I : 

struct call_totals_«trucc cocal_roamer_cocals; /• roaner cotala for */ 

char -*billing_rpt.- /* pointer to billing report */ 

struct report_f ormat billing_rpt_struct .- /• billing repoVt struct"/ 

char *-)«_rpC; /* pointer to journal summary report '/ 

struct report_lormat js_rpt_scruct ; /* journal summary report struct*/ 

struct 30urnal_struct »journal_liat > Istruct jouraal_struct 'INCLL: 

struct reporc_toraac ps_rpt_struct ; /* phone salas report struct*/ 



•true; rt9_»uim«ry •t»j_regi»crr • lcax_reg_sui>»tury ">NULL; 

/• tax register Dy geocodc •/ 

struct report format xero_rpt_struet ; /• xero bill report •truer'/' 
•cruet report, f ormac sxcp_rpt_scruet .- /• exception report »trucc-/ 
•cruet report_f ormac dxep_rpt_scruec ; /* exception report •truer"/ 
char "cr_rpt.- /• pointer to cax register report •/ 

•true: report_lormac tr_rpt_«truct ; /" tax register report struct*/ 
cn*r "chrg_rpt; /• pointer to charge detail report •/ 

•cruet report_£ormat chrg_rpt_«cruct ; /• charge detail report •truce*/ 
char ••ee»m«_rpl; /* pointer to coocusaion waivers report •/ 

• cruet report_f ormac cow_rpt_»cruct ; /• coerai»»ion Mivtrs report •truce/ 
•truct phone_sale»_liat_struct -phone_salas_list_header - 

lphane_aalaa_liat_struet • I NOLL;/' charge type header ' 
•cruet pnone_sale«_liat_»trucc -phone_salas_lisc_header_eux • 

(phone_»al»»_li»t_» truct •JSulX.V charge type current 
•cruet phone_sale«_tot_struct *phone_aalaa_liac • 

(struct pftone_sal«s_cot_struct *>M*LL; 
/• phone aalaa for reporting •/ 

•cruet cur_charge_atruct »cur_charge_li»t - 

Iscrucc cur_charge_»cruct MNBLL; 
/- charge liac start •/ 
BOOLEAN bill_coersit - FALSE; /' TRUE it this run U ■ cos-ait hilling */ ' 
BOOLEAN overide - FALSE. /• TRUE if do abort on dace errors . •/ 
char *temp_liat_»cart; /* generic pointer used co tree linked liac» •/ 

•cruet bill_fonnat bp; /* bill page fortaac acruecure */ 

• cruet bill_format dbp; /• detail bill page format atructure •/ 

•crucc cu»t_»crucc *mascer_aggregace _pcr; /* outer aggregate pointer */ 

/• while proeeaalrjg an aggregate account •/ 
struct »ogregate_scrucc *aggregace_cocals - lacrucc aggregace_ecruet «>NTJLL; 

/• list o£ aggregate totals •/ 

■tract aggxegate_strucc •aggregace_cocals_scax-t - 

latruct aggregate_»cruct -(HULL; /« li«c of aggregate cotal» »/ 
BOOLEAN procea«ing_aggr»gace • FALSE; /• TROT if currently processing an */ 

/* aggregace account -/ 
•cruet p_cecegory_strucc *cat_li*t - l»truc v_c;;i:g«.>:y_aLx-!Cfc ")■ "*.; • 

/• adjustment print category list -/ 
char pr-rv_*cct_nr (10) ; /• previous account number being processed •/ 

int airtiae_detail_atart: /• starting page of airtime detail •/ 

•cruet eo»¥Bwaiv_«cruct -coa>w_liat - I » truce coo»*iwaiv_«tru<rt •IRQLL: 



long comw_amc_cotal» - QL; 

long co*ow_»tace_tocala • 0L; 

long comv_councy_cotal» - OL; 

long co-»w_loc_tot-J.a - OL; 



struct Mrk_»cruct ■ark_tiw_arr [20] ; 

struct colleccion»_in£ o durm i ng_cuac : / » Node of cuscoeier informacion for 

lace notice •/ 
memaetltdunning_cu»c,BDLL.»ixeof lcoHecciona_infol ) ; 
struct iero_bill_serucc *xero_bill_liaC - lxero_bill_sr.rucc *)ROU. ; 

/» pointer of eAiatoner information for 
tero bill report •/ 
struct colleccions_«cat_hdx duraiing_»tat»_hdr ; 
memaec lluiunning_scac«_hdr .HULL, •ixeof tcollaccion»_«tat_hdx ) ) ; 
scrucc collaccions_acat 

•dunning_»cacs - (scrucc collecciona_scac * ) NULL ; * 
•cruet collection^ Inf a •dunnxng_e3Ccepcion_li*c - 
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lacrue: eoll«ceian#_iaio •IMGCU..-/" ia«c o: auju^.y «j<ci: h 
BOOLEAN .end_blU-FALSE : 

•cruet Ouca»:c_ii»; •dtU_liit ■ («crucc d " I SOU. ; / • oue_cut5 

•cruet iree_nume*r_«cruec •iree_nunner_pcr; .r»cirurar>er cable lre»m u> 



c*ll_«truc: -cax*ble_call* - lcall_«cruct *)KOU,; 



• cruet «uper_U*C "auper - lacruct »jper_li»c ')HDU.; 

•cruet «rite_o££ -t»mp_wrl.ce_o££ -lacruct wrlce_a££ •IRUl 

•cruet deBc_axeepcien -cenip_deac_xcp -lacruct debc_eJccepeion * 
•cruet joumal_reI 
•cruet rev_Cocal 

•cruet bli:_p»r««>eter "ce«p_bill _p*ran»- <«erucc bill _pari 



• Call ducountxng variables and t 



char p£ile_bu£_tmp(15SS48J ; 
char blile_bu£ • 2) ; 

cbar b£ile_Du£_tmp(l5S4«»l ; 

ch»r axep_£ile(30); 
char dxep_£ile (30) , 
char zero_Sile(30).- 
char ar_rpt_£ile{30) : 
char as_rpt_£ile(301 ; 
char ta»_rpc_£ile[30] ; 
char js_rpc_£ile[30] ; 
Char ps_rpc_£ile[30) ; 
char cr_rpt_file[30] ; 
char comw_rpt_£iie[301 ; 
char rev_ehg_rpc_£ile[30) ; 
char billing_rpc_£ile (30) ; 



- Call discounting variables and tunetiona * 



/* Shared memory interface variables •/ 
*ey_t »hbiU_key-SK\R£D_MEM_r£Y; 
key_c »hbUl_id-0; 

char *ahmaddree»; /* Pointer CO ahared amory "/ 

char cnp_err_bu£(»0) for more deacripciv* error mti 

acrcpy (nark_Lii»e_arTtO] . ren«r)c. •BDRTT - HEW cnSTOKER-) 



mar*_ti.me_arr (01 .seconds - 0L: 

»crcpy(mark_tine_arr (II .remark. -KTIKE - POST P 
Mrt_Ci«_arr111.uaecanda - 0L; 
aark_ciroe_arr (11 .eeecmda - 0L; 

aercpyimark_cime_arrU] . remark. -KrrME - POST CfcliS (HOME) •) ; 
> - Oh: 
■ - 0L; 

acrcpy laart_t:iiiie_arr (31 .remark. -KTTME - RATE LOOU. SOKE ABtTOE") 
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, crc7y t-_ r k_ci«:_arTMi .-.mark. 'WIME ■ 1 ULL*) ; 

aark_Cine_trTl«l .aeconda - OL: 

«trcpy"»*rlt_tl«!_«rT[Sl .re—rt.-WIKE • TOTAL BILL PROCESS ' I: 
«_rk_ti*-_arrIS) -u»e-onda - OL; 
a_rk_ci«_.rTt5] .aeconda - OL; 

.crcpyia-rk ci»e_arrI6) .cn»k. 'mffi - RJT DATA INSERT'): 
aark_t«-_arTU! .uaeconds - OL; 

»trcpyla-rk_ci«*_arrm.r*.»rk.'KnME - POST CALLS (ROAMI •) ; 
Baxk_ti»«e_axr 17) .uaaeonda - OL; 
■ark_ti«e_.rr [7) .aeeonda • OL: 

•erepy l»-rk_ci«_axr IS) .remark. 'KTIME - CALC ROAM (ROAM) • ) ; 
B»r)t_cia>e «rr[») . uaacond* - OL; 
_ark_ci-e_axr|S) .aeconda - OL; 

• crcpy(._Lrk_ti-e_arr(9I .remark. *SO>*MARY OSAGE 2*) ; 
»ark_cime_axrlJ) .aeconda - OL; 

.trerpyi>Mrk_eime_arr [101 .remark. ■StrWARY OSAGE 3'): 
-ark_cir*_arrllO) .uaeconda - OL: 
a_xk_cime_arr (10] .aeconda • OL; 

.crcpy (M r*_ci«_*rrUl! .remark. -SW4MARY USAGE 4'); 
mark_ci-e_arr [11} .uaeconda - OL: 
a_rk_ti-«_arr til) .aeconda - OL; 

acrcpy|-*rk_tin-_arrU2) .remark. -SUMMARY OSAGE S'l; 
-_rk_Cim-__rrtl21 .uaeconda - OL; 
i— .rk_cl-e_arT [L21 .aeconda • OL; 

•trcpylB.rk_ci-e_.rr (13) .rtmuk."Mn« - RPT DATA UCERT-) ; 
m.rX_cime_«r-r 113) .uaeconda - OL; 
-ark_ci-«_«rrU3) .aeconda - OL; 

// cle.r ovic plan acrucc 

imueclLplu. NULL, aixeof IdiacouacPl-n) ) ; 

// aec up error handler information 
aecldencicy (»rgv(0l ) ; 
aecErrorFilel "vgerr-loc;*) ,- 

,'• Sec I/O buffer aize for scandard ouc 
secvbuf (scdout. lcnarlHCU.._I0FBF.«553SI ; •/ 



rn.rk_c.iiw IS .maxk_cim-_arr .1) ; 

scrcpy (market. arov | 1) ) .- 
if larov(4) \- lcnar)NULL) 

I 

aecanf <arov(4l . M2d/»2d/%«d 

aprmcf tbill_dace.dace_acr. 

) /• if arg peaaed -/ 
else 

< 

bill_4ace.y-»r - 0; 
bill_d.ee. month - 0; 
bill_date.d*y - 0; 
} /" else no arg paaaed •/ 

memcpy lobill_d.ce .bill_d*te .date_atr , « ) ; 
memcpy lomarkee. market. 3) ; 



■ . 4bill_d»ce .rath. tbill_dace.day. 

WBill_dace.y-ar) ; 
•*«d%02d»02d* .bill_d*ce .y-ar. 

biU_date. month. bUl_dace. day) ; 



vpuc Uobili_date2 . axgv(4j); 



- Sec tfle error log for th* aunt 
uaererr function £or reporting error fi 



apen_error_logCvgerr.log') ; 

if l"argv|S) 'I') 

bill_con»nit - TROE; 
it l"«rgv|«! — 'I'l 

overi.de • TROE; 
if C«rgv(7| — 'P'J 

parallel - TRUE; 

if 1 1 aegmenc - I lint) atoi UrgvUJ ) ) ) »- 0) 

I 

e rro r_handl e r ( ■ b 11 1 _ t e a t . pc * , CHXHWN . 
•Could not determine »ege>ent Dumber."); 



if Iparallel) 

■pnntf (ar_rpc_£ile. "ar_»d.rpe".»egmentl ; 

■printf (ar_rpt_£ile. "ar.rpt") ; 

■printf la«_rpt_file. "aa.rpt") ; 
apnntf ltas_rpt_file. "taa.rpt") : 
■printf lji_rpt_file. "ja.rpt") ; 
■printf (ps_rpe_file. "pa.rpe") ; 
■printf (tr_rpt_file. "tx.rpt") ; 
■printf (com»_rpt_£ile. "eoaiw.rpe").; 
■printf lrev_chg_rpt_£ile. "r«v_chg.rpt") ; 
■printf (billing_rpc_file. "billing, rpe") ; 
■printf ldiag_file_na»;. •** .xxx- ,axijv[ll) ) ; 
■printf ldiag2_file_n»me. •*» . err" .axgvlll] ) ; 



ifdfpstd « freopenldiag file cue. *v . »tdout) ) — (fTLE " )RULL) 

{ 

error_bAndler ( "bill_te»t .pc" , FHE0PEN, 
•Could bill diagnostic file") ; 

}/- Can't open diagnoatic file •/ 
else 

( 

ifUfpstde - f reopen (di«g2_£ile_n««."v-.«cderr I) — (FILE "IBaU.) 

• f . 

erxar_h*ndler t "bill_te«e . pc" . FTLEOPEN. 
•Couldn't open «tderr bill diagnostic file"); 
_exic(l); 

)/* Can't open diagnostic file •/ 

«printf Icmp_err_buf . •mbzK: *d".«brk!0) ) : 
error_handler 1 "p*r_bill . pc" . UHISONH. a»p_«rr_buf ) ; 
tifdef _SE0OEJTr_ 

■hbill_id • »hBget(»hbill_key,0.IPC_C3lEAT) ,- 

»el»e 

»hbiH_id . «hj«e/ec(!int)»hbiai_k»y,0,lPC_CXE»T); 

• endif 

■printf (tmp_err_ouf. •■brk: %d".»brklO) ) .- 

error_ h » n Alcr 1 *par_bill.pc* .nHXHCMH. tap_err_buf ) ; * 

if Unbilled -'- -1) 

( 

•prmtf lcinti_err_ > buf . 

"Shared memory allocation for %d: attempt f ailed. • .ahbilljteyl ; 
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)/• Oct. n— **y Li M u« •/ 

( 

/• Attach »ftared ~raory • «g»ent •/ 
// iiidef _SEOUWI_ 
// inm*ddre»- - innut ( ■nut ll_id. o. 01 .- 
// itl« 

»hm»ddre»» - <ch*r *> jhmac I lint) »hbill_id. (void *)0,0); 
// tendi* 

■print £ (tmp_err_bu£ . *»brk: »d" . «brk (0) ) ; 
error_h*ndl er I •par.biii . pc • . WUWra . tmp_erT_buf ) : 
If (I lint l.ta-ddre..) — -1) 

I 

*princf l",mp_erT_Duf, "Ciimpi »d" . errool ; 
perror ltBrp_err_iru£l ; 

error - TRUE: 

sprintf !tmp_erT_Du£. 

•Could net *zc*cn mtitred ■emery in •>eomenc »d . * . »eo»enc ) ; 
erroT_h*ndler ( "bin_ce»t . pc* . DHrarow . cmp_erT_bu£ I ; 

1 

elie 

[ 

/• Sec »h»red memory »ddx»»» to that of Cilia »*gr»ent,j »h»rnd «r«« 
»hraaddxe»« — t»ixeof tecruct p*r _p*r£_«cruct ) - 

• iioof lexruet t>»g_per£_«cnict ) 



meincpy (t»eg_per£.»hra«ddre»i.«ixeo£ l»truct ••g_per£_«cnicr.) ) ; 

»ej_per£ .»e9menc_number - jegn ea c ; 

«eg_per£ .running • 1; 

»eg_per£. complete - 0: 

aeg_per£ . alow_tlme - 0; 

»eg_per£.£*«t_cioe - 100; 

»eg_per£.el»p»ed_t,in>e - 0; 

aeg_per£.bill_counc - 0; 
»eg_per£ .«cct_counc - 0; 
memcpy ( »eg_per f . las t_«ccousc . 

"mm OCDC* . 10) ; 
memcpy ( aeg_per£ . Laac_cust , 

•TXTTCCCCa ",10); 

/• lniti»lixe ahared memory tor chi« cr»«gment . •/ 

memcpy I ahmaddxeas , k»eg_per£ . laixeol lacrucT; «eg_perf _«xru'cc) ) ) ; 

aprint£ (tmp_err_Buf . *«brk: *d* . sbrk 101) .- 
error_h»ndler t "p»r_bill . pc" . VSnOKMH. tmp_err_buf ) ; 

} 

) I' got ahmgecd •/ 

•etvouf latdout, tch*r)HUU.._IOFBF, 6SS3S) ; 
pnnc£("*« *s »■ ts *» *« *« *» *■ *« %• *a *»\n-. 

«xgV(2J. 
•rgvtll . 
•rgvUl. 
»rgv(S). 
»rgv(S|. 
argvPl. 



• rjvlSI . 
argvllO), 
»rgv(UI . 
«rgv(12) >; 
)/• TESTING REMOVE •/ 

/• log on to oracle •/ 
•trcpytlchar -I uid . «rr. argv [J] ) ; 
uid.len - atrlenllchar •luid.arr): 
exec sol connect :uid.- 
It laqlca.aqleode " NOT_SQL_ ERROR! 
( 

EXEC SOL ALTER SESSION SET 0PTIMZER_GOAI. • ROLE; 
EXEC SOL ALTER SESSION SET SOL_TRACX TRUE, 



EXEC SOL SELECT TO_OUkR ITOJIATE I :oaill_date-2 . 'Bn/dd/TW ' ) ) OTTO :Obill_<Ute_CB«t FROM DOXL; 



error_handler(*bill_c«iC.pc'. UNKNOWN. 
"FATAL ERROR : bill dace p»ri«ter ia not in m/dd/Tm format.'); 

]/• li error, abort and inform operacor Co check bill dace */ 
Chp - end nn kludge ♦/ 

f HUGE VANOTARD . KLODCE FOR bill dace validation •/ 

EXEC SOL SELECT BILL_DATE INTO :abil2_dace_2 FROM SXTTCH_KAJUOrT WHERE 
MXRJCCT - :nm«rket AND 

BILL_DATE - ABO_MOHTHS <TO_DATE < :obill_dace. "tTTWHOD' ) .-1) .- 

if ( laqlca.aqleode I- 01) 

I 

error_tv»ndl er ( • bill_t esc . pc • . ONXNOKN . 

■FATAL ERROR : bill dace paxaaecer i» not 1 month, greater than laac bill date.*); 
)/" If error, abort and inform operator to check, bill date •/ 
// vholt 12/6/S2 changed for n*u tax lil 



■printf (print_fn. " /dev/null • i ; 

•printf lprinc_cap_fn. •%».prt.Dnp",axgv[2] ) ; 

aprintf lprmt_£n. Ma.prt'.argv [2) ) ; 
sprincf lprinc_cmp_£n. Ms .pre .cmp - .argv (21 ) ; 
aprintf (bill_image_fn. Mi.b«ng",argvt2] 1 ; 
aprintf (bill_image_cmp_£n. •*« .bag. cmp" . argv f2] ) ; 



/• Gee the auper_li»t from the dacabue trgataa) •/ 

/ -"-*/ 

if ( lbld_writeof f_li*t (*cenp_wrice_off ) ) 

( 

add tub liat Uauper, cemp_vxite_o£f .WRITEOFF) ,• 

if I lbld_debt_xcp_lixc Utemp_debc_:ccp) ) 

( * 
*dd_aub^ll»t Iteuper. teojp_debt_xcp.DEBT_EXCE7T) ; 

I 

ifl!bld_jrnl ref list (4Cemp_jour_ref ) ) 
( 

add_«ua_li»e Ikauper. temp_jour_r=£ . JOORJIAL_REFERENCE) ; 
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If ( lbld_rev_total_llat (tc»«p_rrv_coc»ii . 

( 

add «ub liat (tauper. tattp_rev_tocal, UE_TCTAi.) ; 

) 

if ll9e: biil_par»m» titemp_Sill_parain3 . market) ) 

I 

add »ub_li»t lkauoer.te=p_bill _param» . BILLIKG_PAJl*«S) ; 

) 

/• : / 

/• . - Get the diacount plana from Che databaae •/ 

/• / 

it IrecreiveDiaeountPlana Uplan. market .bill_date . date_acrl 

{ 

errar_handler ('Call Diacounting" , 

ONXNOW, "Could not get diacount plana'); 



/• name file by market •/ 

il ( I tpf p - fopenlpnnt_fn, *•♦*) ) I- TOLL! 

I (bdtp - topen (bill_im»ge_tn. "»■•") ) I- NULL)) 

( ' 

if laetvtouf (pfp.pfile_buf .^IorBr.lS3«00) -- 0) 

if laetvbuf (bdfp.b£ile_buf ,_IorBF.153S00) — 0) 

/• build the free number list 
iree_number_pcr - get_£r»e_li»c () .- 
/• retrieve die market information record •/ 



if ( iget_dunning_lee»ay lkm*rket_rec.le««ay_aoount. 

fcmarket_rec.lacefae_le»»ay. 



pnntf ("notice Ud latefee *ld le«aya\n' .aarket_ree.l»e«y_ajaount. 

max-ket_rec.lacefee_lee«»ay) ; 



if ( lget_rate_liat (trace_plan_liac. market. 

i*irtuae_»ummary| I 

' ( 

due_date.day - »arket_ree . due_date_day_in_mcmch: 

if 1 iget_date_valuea (ibill_date. fcpexiod_dace, kdue_dace.scodays_dace . 

Hate£ee_date. lint ) maxk«t_rec. Latefee_thxeahold. 
market rec.init_pay type, overide . auperl ) 

{ 

if (acroap(market_rec.bill_ < dace.date_acr.bill_dace.d»te_»crj — 0) 

( 

print f t "FATAL E3WOR: Current billing date i» etnud to laat billing date.Xn"); 
erxor^handler I *bill_c«at . pc" . UWOIWH. 

•Current bill_date - laat bill date in »witch_markec table.") ; 

_exit(0) ; 

) 

ce«puce_billdace_of f aeta ltbill_date.fcof f aet_di«play_date) ; 
if ( (tod_deac_liat - get _cod_deac_liat (market ) I !- 
lacruct tod_de»c_atruct - ) NULL) 

( 

misc_mkt_chg - get_miac_mkt_chg (market. 4coday»_dace) ; 
f yi_me»aagea - get_fyi_noticea (market . 

tdue_dace. 

toffaet_diaplay_date. * 
tmarket_rec .e»h_rcvd_d»te . 
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if (tyi^n«e...ge» — laeruet tyi nodcc.icmc: 'INDIA) 

( 

? 1 * FATAL ERROR; recreiving fys awa_ . lace nocicea . \n- ) ; 
error_n*ndl«r ( '£>ill_c«*c . pc* . onxhcjww. 
"gec_£y:_nociC«« ( I returned fatal error.'); 



if (leac_linc - gec_princ_cac I) ) I- 
tatrucc p_c»cegory_acruct •IOTXX) 

{ 

princf ("Going Co gee cu*c_Zi»c \n') ; 
ffluahlatdoutl ; 

if ( (cu»c_inxo_li#c - oe:_cuac_li*c laarker.. kbill_d«te. 

«rgv|9J ,»r?v[io))) I. 

(aerucc cuac_»ejruec •)SUIX) 

( 

gec_30Ui-Mi_»uH«airy lijourual_liae) ; 
gec_pnonff_»alea Upftone_aalea_li*c. market) ; 
gec_pnone_«alea I kpftane_aale»_li»t. market, 

ctaap_bill_p*x«»».>ph_»«l«j_^rnl_»cc:t) ; 

if ( |phone_aal»»_liac_ta»*der - lpnone_aalea_liac_«eruct •) 
malloc laixeof tphane_»*l«a_li»t_»trucrc. ) ) ) I • 
(ptlQne__«al»«_ll_»t_»trucc •) HOLD 

I 

phone_aaleB_liat_b«ader->aal.aa_liat - phone_a*les_liat ; 
atrcpy lphcjne_a*lea_liat_h«ad*r->c.ltleText.. "PHOHE*); 
phonc_ 11a t_hmaiier_cur - pl>a&e_aa.l«a_list_ba*d*x ,- 

phone_a«l«a_Ujit_hawad«r_cur-»link - |pbane_a*l«a_liat_acruct •)KOLL; 



/• gee ' R£' cod«a liac ♦/ 

if ( lphone_aalea_li»t_hed»der_cur->lin)c - 

tphone_aaloa_liat_atruct * (malloc laixeof lphone_aalea_liat_»cruccl ) ) 

I- (paone_a»laa_Liat_atrucc •) HULL) 

, ( 

phone_aalea_liat_baader_eur • phane_aaies_li»t_h«ader_cur->lAnk; 
acrcpy lphane_aalaa_liac_bavader_ctir->tic.leTe3et. •ECJOIPKEBT* ) ; 
phctne_aai.ea_Uar heatt e r_eur-»lAuk- lphone_a»l«a_liat_atruex •I1TOLL; 

(phone aalaa^cot^acruct -JNDXI..- 
get _phone_Balea(Mplicme_a*leB_liatJ^der_cur->a*lea_liatl ,»ax*ec. ce=^_bill_paxama->«piip_«ale3_jrnl_acct) .- 

) . , 

elae 

( 

error_haa<lLer ( -bill_t«»c .pc- . nRKHCW. 

-Malloc error for piiOTe_a*i.e»_li«c_fteader. •) ; 

princf ("ERROR OCCURRED BUT.LDIWG FHOHE SALES LIST . \n " ) ; 

J 

» 

else 

( 

error_haadi«r ( •bill_taac ,pe' , WKHIMS. 

•Malloc error for phooe_»al«a_li_Bt_hoader. *) ; 

pnocfi -ERROR OCCURRED BUILDING PHONE SALES UST.\n*); 

1 



if ( tgec_rrv_li»tl4rev_liat.ia»rket)> 1-0) 

( 

error_h*ndler ( •bill_ceac .pc- .CNXNOWS . 
•Can't oake revenue by cbaxge code liac. ") ; 
printf fERROR OCCURRED EUTLDDIC REVEHUE LlST.\n«); 

) 
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/• let the prorating to date *■ bill date */ 
pror»te_to_dace - biH_dace; 

/• initialize the report atruccurea •/ 

inic_bill_rpc |iar_rpt_«truct . ka._rpc_»trucc . J.ta._rpt_itruct 
UBilliD9_rpc_«truct , J,ji_rpc_»cruct . 
kpi_rpc_»crucc . kcr_rpc_icrucc . 
fcchro,_rpt_»truCi . icoo»_rpt_«trucc . tiill_date . 
fc»arxec_r»c.*up«rl ; 

/* open Che reporc filaa only in aequential oode •/ 
if ((parallel) || lllparallel) it II 
I l«»_rpc_«truct.rpc_£ile - 
fopenlai_rpt_file. •»♦•) I I. BULL!) 

fct I 

I <taa_rpC_«crucc.rpc_£ile - 
fopen I taa_rpt_file. ■»•.-)) I- HULL) ) 

I I j»_rpt_atruct.rpt_file - 
fopenl j»_rpt_file. I i- null) ) 

tt I 

I tp»_rpt_atruct.rpt_file - 
fopejitp«_rpc_file. •»♦•)/ I- TOLL)) 

U ( 

( (tr_rpt_etruct.rpt_file - 
£openlcr_rpc_£ile. -»--) 1 I - HULL) ) 

. fci I 

( lrev_rpc_»truct.rpt_£ile - 
fopentrwv_cbg_rpt_£lle. •*♦•)) I - HULL) ) 

it I 

I (billir>g_rpt_»truct.rpt_file - 
£op<mlbiUing_rpt_£ile.-v.«) ) I- HULL) ) 

tl I 

(lcom»_rpc_«truct.rpc_file - 
£op«nlcoBiw_rpc_£ile. "»♦•) ) I- HULL))))) 

I 

/• open the ar report file IRragardlaaa o£ parallel atatua •/ 
if 1 1 lar_rpc_»cx\ict . rpt_£ile - 

£openlar_rpt_£ile. ■»-•) ) --HULL)) 
/• II < 

I (co»»_rpc_tcruct.rpt_£ile - 

f open tce«»-^rpc_f lie, »»-•) ) — HULL))) 

•/ 

( 

■rror_nandlerCbill_t«af.mX0PE8. 
*»r raport filaa"); 

} /* ela« topen report filae error •/ 

/• Sec I/O buffer aire for ar.rpc file •/ 

secvbuf (»r_rpt_struet.rpt_file. (char I HULL, _IOFBF. 1024 00) ; 

aetvtwf lcornw_rpc_atrucc.rpc_£ile. lchax)HULL._IOFBF.102»00) ; 

/• creace Che toll and airtine liac for Che hone market • 

/• integrate into build market call liat •/ 

if I lbuild_toll_airtime_liat (ttoll_airtiiae_li»t. 

■araec rec . marXet_nas»- ) I 
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iruc_noru:«ll_coc»l« licoc*i_non_e»ll_toc»I.»l : 
. loi:_c»ll_cot*l» Uf -_»n_toc.»l*l : 
imc_c»ll_coc»l» uct. »«er_toc*l») : 
init_dunn.Lng_«cacJ Udui_.ing_»t»c*_hdj . iduru-u.ng_»c»t*) ; 



cu«c_in£o_U«t I- litrucc cu*t_»crucc -lNOU.) 

( 

wBDcpy l »eg_p«r£ . l*»t_*cco\int . 

cui t_inio_li»t - >»cct_nx . 

f.zeot lcu*t_in£o_li«t->»ccc_or) I ; 

m»rk_cii«e(0.ia»ric_ta.nH!_»rr,l) ; 

/• get the •••ociated bill into record •/ 
If l iget_bii l_La£o ( ti>i.ll_inIo_rec. 

cu»c_in£o_li»c->«ca:_arl ) 

( 

/• get the current charges record */ 

H ( ]get_c\irrent_cb»rge» (kcur_civ»rge_liit . 

cu*t_ia£o_li»t-»«cct_nr. 

fcbill_l.ii£o_ree) ) 

( 



proce»»ing_»ggr-egete • FALSE; 

do 

( 

aeg_per£ .bill_caunt~»; 
neracpy I »eg_perf . lo:_cuit . 

cu»c_iaio_ li»t - >cua t_nr . 

pnncf ("CUiiUMLK » t-lO.lOs ACCT * *-10 ,XOm\n' . cuac_inf o_li»t- >cu«c_nr. 
cusc_in£o_li»i->«ccc_nr) ; 

a»ncpy(biZl_in£o_ree.b.ill_eaxegcriea, "00000000" , 8) ; 
c«xer->£reeT*xLi«c litocala .nanc*ll_c»x) ; 
ci«er->ire«T«jtLi»t (4coc*l» .pay«nc_«dj_c«jc| ; 
c«xer->£r»eT«xIj.»tltt.orjil».ho»e_«dj_t«) ; 
caxer->£re«TaxLj.ac lltocml* .£oreign_«dj_t*x) ; 
uxer->{reeTuLiK Itcouli.piyaent^Luul ; 
CJtxer->£r«eT»xLi«t lttot*l».be«_t*xejl .- 
caxer->£reeT*xLi»t(tcoc*l«.£oreign_t»x«») ; 
c*xer->£r«eT«xLiac I fccuxrent^rha rgc_cocala .soncall_ux) ; 
t*xer->£re«T«xLi«c licurrenc_cb»rge_toC»la . payment _adj_e*x) ; 
c*xer->£r«eTaxlA*E (icurreat_cnaxge_coc».La .hon>e_»dj_E*x) ; 
caxer->£reeTaxLiac (fccuzxeiit_charge_cotal.a . £oreign_adj_cax) ; 
tiui«r->£x««T«xLijt ltcurrenL_chaxge_cocaJLa . p»ye>enc_t«x»» ) ; 
cajcer->£re*TaxLi«t ltcurT , eat_ch*rge_tot»lji .bo«e_t«xe») ; 
c«jeer->£r«T«xLijc Ucurxent_cA»rge_cocals.foreign_CJLKe») ; 
iaj.t_noncall_coca.la Ucocala) .- 
init_nancaH_cocala UcuxT-nt_eAaxge_cot»la) ; 

ijait_cax_ree (fccocala .ncme_ll_caji) ; 
i£ ttocal«.n-ncall_tax I- licruet vtax "iNnLI.) 
ta«r->£r*eT«j__Lat ltcot»l».nonc*ll_tajt) ; » 
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load_o»te I4prorace_tro™_a»te. 

load_dateli-»cci». _dace. 

lo»d_diteltdMc:iv«:ion_lite, 

cuac lnfo_liat->d**.ctivation_date) : 
load_d*teU*u*pend_dJ»te.cust_jjifo_U»t->*uspend_d*te) : 
/• build the call related totalj liat */ 
If I lnar*ec_call_U*c - 

build_i»ar*.ec_call_li»c I imar*et_rec) ) I- 

(acrucc marxec_call_*crucc •)KULL) 

{ 

/' if Che customer element ia a to«»cer aggregate •/ 
/• reaerve It CO procea* after individual account* •/ 
if (cusc_into_li«t->aggr -- ACGX£CATT_MASTDl I 

I 

/• the firac Cine through aeC up aggregate* •/ 
if lprocea»ing_*ggregate — FALSE) 
I 

maater_aggregate_ptr - cuat_inf o_li*c : 
/• point to che £ir*c run account •/ 
proe*aaing_aggTagate - TRUE; 

/* build Che aggregate cocal* liat */ 
build_aggr_cocala_liac ti»ggragace_tooa,la , 
■aater_aggregatejptr-»cuat_nr. 

/• retrieve call* for mach aggregate account •/ 

ret_aggr_call_iafolaggre5«te_totala->link, 
cu»t_inro_li*c - > link . 
»arkec_rec .nar*.ec_*id . 
■ fcbill_dace. 
fclbill_iafo_rec.detail_aort_cd) ) ; 



calculate_iree_aggr_aircime Uggregate_tota,ls . 
cu»t_info_li»E, 

race_plan_li*c , 

fcmark.et_rec . bill_d*ce . 
tperiod_d*te. 

■axx.et_rec. inic _p«y_type. tplan) : 

J' point to cue lirac aggregate, if one exiata. •/ 
if laggregace_coc*l*->linX I - 

(«crucc aggregace_ecruec •)BCLW 
•ggregace_cotals_acart - aggregate_cotala- >lintc; 
elae 

aggreg»ce_cota,ls_ata,rc - aggregace_coc*li ; 

/• get the data for billing the first */ 
/• subordinate from the aggregate list •/ 
a«r)tet_eall_liat->call_li»t - 

aggregace_tocals_acart- >call_liat ; 

■arket_call_list->alt_cai: > _liJt " 

aggregate_cocala_scart - >alc_c»ll_liat ; 

/* copy Che aggregate rate plan Co currenc race "/ 
/• plan record •/ 
copy_race _plan( 

fcaggreg»ce_cocal*_st*rt - >race_plan_rec . 
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/• »ec proce. -ggreg-te £1»9 co FALSE 

/• procct»» only the -gg-eg.ce. «-»cer •/ 
1£ l_emc-c>(c_«L___fo_l_»L->.ccc_-_. 

c_»c_-r_o_ll»t->l_r-i->-ccc_ru: ,; 

( 

cu«c_info_l--C - _».cer_.ggreg«ce_pcr; 
proc««.lng_»gg-eg.te - FALSE. 
) /• if only -..ter .g7r.Kj.ce •/ 
el.e 

cu»c_info_li«t - cu_t_i.i_.o_li»c->lin)c.: 
) /• i£ proc«.»ing .ggreg.cge - FALST */ 
/* proco»» che muter .ggTeg.tr l»»t •/ 



( 



iggTeg»te_toc»l» . •_X!^di_.te_h_<l>e.• 
eg•c^_coc— l»->_ggx-9«ee_coe__« . »__or___.ce_f oreign; 

f point _»-_ to the iur o£ .ggrag.te li.t •/ 
•ggreg.te_tot.l-_.c_rc - »ggreg«te_totAi»: 
/* cocl the •utoortlia.te .ccount c__rge» •/ 
Mr_ec_c_U_l-_c->_.U____t - 

I .truce c_ll_ .cruet •)!»__.,- 
_»rXet_c_ll_li-C->_l._c_ll_l_«t - 

(•cruet c._l_»_ruc- •>HULL: 
/• copy the .ggrag.ee rmce pi" to current r.ce •/ 
/• pl»n record •/ 
<sopY_r»te_pl_n( 

:_tatAla_»C— rt - >r»ce_pl«__r-c . 
ir_r.tej1.ri) ; 
proce.. ing_.gyreg.te - FALSE; 
} /' el.e pro_e.»i_g .ggr-g.te - TftDE •/ 
} /* if __»ce_ .ggrsg.te •/ 
el.e if lc_«c__--o_l_»c- «_ggr — 



[ 

I- get che d_c_ for billing the -u_ortln.ee fro- •/ 
/■ Che .ggreg.ee li*e •/ 
___ket_c_ll_li_t->c_U__i_t - 

»ggT-9»te_eot_l«_»-_rt - >cll_li«t ; 

Mr*ec_cll_li.c->»lc_c_ai_li»c - 

«ggreg«ce_eoc»l__«c_rc-»_lc__»ll_li-C; 
/• copy che .ggr-g.te nee pi_n to current r.ce •/ 
/• pi— n record */ 
e_py_r»te_pl»n ( 

_»ggr-g»te_cot_l»_.c_-c->r_ce_p__ji_rec. 
____comer_r.ee _pl»ni ; 
) J' if .ggr-g.ce _-_>or__j_»te •/ 
el.e 
( 

nark_cine(2.<urk_ciae_arx.l) ; 

_»rkec_c_ll_U_t->c_UJLi_t - 

ret_c.ll___fo t-j_t_inf o_fla»t- >cu_t_nr . 

-pror»ce_ f row_d.ee . 6bill_a.ee . 
-lbill_in_o_ree._ec_il_»or-_cd) . 
-(__r)iec__---_^-c-»_l.___ll_l_-t> 



cu»t_inlo_li»t->04i 
apror»te_£roHi_daee . 
i»«r>iec_r«._i.ll_ii» 



fcau*pend_<late. 

m*rk.et_c»n_U»c - >e»ll_li«E . 
n»ricet_ree._ait __p*y_typ=. 
eu*t_iiifo_H»t->ar_prorjced_d»y») ) 



:r(-bill_t« 
arror - TRUE . 
} /• oo rate plan •/ 



taxer->g«tCiiatExeaiptiaJ_i lt«x»mpcion_l.l»c. . 

c\i»t_inf o_liJt-»cu«t_nr) ; 
princffJuac Returned Proa getaiacExeaqpt* for"): 
princff account number tl0.10«\n', 
eu»t_inlo_U.at->cu»t_ar) ; 



/• get Che previous charge */ 

totals. pr-viou*_balance - bill_ia£o_r«c . curr«nt_cbg«« .- 

/• get any A7R record* or any adjustments •/ 
maritime II .mar)e_ci»e_arr , 1) ; 

«r_li«t - get_ar_inZo(«_»t_iaZo_li*t->cu»t_nr. 

itocal_non_=all_totals . 
tbill_dace) ; 

get_adj_info lcust__aio_list-»cust_nr. 

marXet_rec .narket , 
_bUl_dac e . 

fcbill_iafo_rec) ; 



taxer->calcTax (ad.juatnent_li.at . exempt ian_list. 
bill_dace . dat e_str . 
eu»t_inf o_lisc->geo_eode. 
blll_ii_to_rec . aervice_cla*» . 
cu»t_lnlo_liat - >cusc_nr . 
euac_info^liat->gity_re»ident) ; 
taacer->buildXaxRegister ladjuatmeat_list . 

ttax_regi*cer. 
cust_inio_list-»geo_code) ; 

cale_ar_adj lar_liat.adju»cment_li»t. icocala . 

cat_lisc, journal_li*t. fccoHect_adj_list. 
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totals .unpaid - 0 

) 



cocali. unpaid - cocala .previoua_balance • 



/• calculate Che rate plan ciiargM - if any •/ 

if (cii»ccH>er_r»ce_pl«n.r»te_pl.«n_idtO) i- IcharlHOli) 



cajcer->calcTax (acujton>er_rate_pl*n. 

■xespcian_liat , bi H_dat c . dace_acr , 
cu»t_inf o_liat - »9«o_code , 
bill_laf o_rec . aervice_cla*a . 
cuac_inf o_liat - >cu»c_nx . 
cu» t _ uai o_ i i » l - > c i ;y_ r b i i d en t ) ; 
t a* e r - > bui 1 dTajcfceg i » t e r U cu» t one r_ r a t ejp lan . 

*cax_r»gi*eer. 
cuac_info_li«c->geo_cod«) .- 

calc_rate_plan_cbaxg«» (fcCuacoa«r_race_plan, luuit, 

jour»al_li«> ; 

) 

/• calculate che recurring charge totala and debit -/ 
/• the recurring charge balance - if appropriate •/. 
/• ROTE: prorate from date i» Che activation date •/ 
re_dayi - *d\n-,eu«coe*r_race_plan.DO_activr_day») ; 



get_recur_eharg«<a 1 eu»t_inf o_li»t - >cuat_nr . 
cuat_inf o_li»c - >aggr . 
tpror»te_f rom_4Lace . 
fcprorate_to_date . 

fcd.«activ»cion_(iate. 
i*u«pend_daee . » 
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:_ree.uu.E.J>.y_cyTx. 
»er_r«te_plan.no_«ctive_eUy» . 

CaL_U«t. 

fcbill_in£o_rec. 

cuac_lnfo_li»t->nr _pz-or«ted_<l«y« , 



If (recur_li«t I- (»truct r=cur_»cruce "lOTIX) 

{ 



if tnc 

{ 



bill_ia£ o_rec . ■ervice_clma» . 

c\i»t_in£o_li»c->cicy_r«»ident) ; 
c*«r->buil<ITaxRegi»cer lnonrecur_list , 

cu«c_info_liac->g«o_code) : 
calc_nanr»cur_chArg»» (nonrccux_list . fctotala . 



:ourn*i_U«c) ; 

} /♦ if nanrecur_l±*t •/ 

/* calculate Che air time charges */ 

/* don't calculate lirtim charges or miner •/ 
:r aggregates */ 
►aggr I- AGOUECATE_M*STER) 



»arxec_ca' ■ -»aim»e_coc - 

calc_c >«rg«» <kcu»to«n<:r_r»te_pi«n. 

»«r>iec_eall_liat - »c»l!_li»t . 

k»arxet_call_li«c - »call_tocal« . 
journal_li«c . 

cu*c_Lnio_li»t- >cuac_»tatuj , 
fcplan. kbill_inio_rec. 
4tajc*ble_calla. 
tr»e_number_ptr) ; 

taxer->calcTaxttaxable_caU».e*emption_Uat.bin_date.date_it:r. 

OMC_info_li*c-»?=o_eode.bUl_inxo_ree.»erviee_claaa. 
cuflc_inf o_Uat- >cu*t_nx . cu»c_iaf o_Li«t - >city._rt>aident ) ; 
taxer • >buildTaxRegiater (taxable_call» . fctax_regiater . 

cu3t_inio_ll»t->5eo_code) ; 
c«tr->«umMnttIu ( taxahle_ealla . t»arXec_call_n»t - »call_total» . »ir_tajc. 

fc»arKet_call_liac.->call_total« . land_taxl : 
// tsu iinmi tliac tfte taxable ealla has local, Intra and inter call* 
// in that order. 

taxer->aun»ariieTaxltaxable_ealla. 

fcColl_airxiw_li*t->ajjtia«_cax(MaX_»0*^IO_Tr7ESl .HOIX) i 
call_3Crucc -leer » taxable_calla,- 

taxer - »addTax 1 ttoll_airtia.s_U.ac - >loeal_acce»»_tax |MXX_BQ*MS3«_TT1»ES ) . 
iter - iter->lin)c; 

Laxer-»addTaxUton_airti^_U«t-»iatr«atate_tJUC[>«7_JlQAMES_TrPES] . 

iter->land_tax) : 
iter - lcer->link; 

taxer->addTaxl4coll_airtiTO_liat->iBCerstace_t«|KXX_RO>i«ER_TTreS] , 
icer-»land_tax> ; 

/• update airtioe and tax data to call_info */ 

} 

marX_timeCl.marx_time_arT.2l ,- 

/• retrieve all Town: ta'.J. .-»•-'»*■ i*« */ 
/* NOTE: prorate from date i» activation date */ 
if ( lret_roa»er_iaiolcuat_iafo_li»t->cuat_nr. 
»arXet_call_li*t. 

cua t_ inf o_ 1 i» t - >a ct ivation_da t e . 
ibill_date, 
toll_airtime_liit . 
i<bill_inio_rec.e«cail_iort_cd> ) ) 



for lmarxet_eall_atruct -mc_iter - ■arfcet_Call_liat->linX.- ■e_it«r; 
oc_iter - nc_iter-»linkl 

{ 

taxer - >calcTax tme_iter - »call_li»t . «xws^tion_li»t ,bill_date . date_»tr . 

cuat._info_li.at - >geo_code . bill_inxo_ree . »ervice_claa« . 

cu»t_inf o_liat->cuat_nr. cu»t_inxo_li«t->city_r»aideat) ; 
taxer - >buildTaxRegiat er lmc_lter- >call_liat . kcax_regiater . 

cuat_info_liat->geo_c©de) ; * 

) • 

cale_roai»er_chargea t«arXet_call_li»t . fctocala . 

toll_airtiae_li»t ) : 
} it not aaater aggregate •/ 
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total_cnarge» 1 4totala . »arket_c»ll_li«t ) : 

/• iec the'" tied billing flag •/ 

/* If taere are no current or unpaid charge* */ 
/' tbm do not print « bill - flag the euitwr •/ 
/• 11 having no current or unpaid chargei •/ 
/• print the bill •/ 

maritime M . nark_taoe_«rT . 1) ; 

/• change to u»e freopen for »ub»equent open* •/ 
if((tir«open_flagl 44 

(Itptp - £op«nlprint_tBm_fn. *»♦*) ) I- BULL) 44 
( Itcdfp - fopenlbill_image_Cmp_£a. •<"•') ) I- BULL) ) 
II 

(icpfp - freop*nlpriat_tmp_fn."w-»-.tpfp)) I - BULL) 44 
lltbdfp - freopen lbill_ia»age_tnip_f a. -w.tbdfp) I I- HULL) I 

( 

reopen_f lag-TRCE ; 

■ etvouf Itptp. pfile_buf_tnp._IOFBF.lS360O) : 
•etvtouf (tbdlp.bfile_buf_taip,_IOFBF.lS3«00) ; 
init_biU(4bp.»0.«S.epfp) , 
init_billl4dbp.iO.SS,tbd£p) ; 

/" collect dunning information applicable. •/ 

5«t_dunn*ng_data(4»arket_r«e.bill_date. 

cu»t_inxo_li»t. 
4hill_Lofo_rec. 

4cur_charge_Li»t. 

4eolleCt_adj_li«t. 

4cu»tc«er_rate_pian, 

ddl_li»t. 

4todaye_date. 

■uper); 

if ( tcu»t_info_li*t->aggx I. ACCTXSATE_SUBORDIHArE ) 44 
lcu»t_info_li»t-»aggr I- WkLK_nJ) ) 

( 

■wicch ( dunaing_cu»c . cr«ac*>ent_oocice ) 

{ 

ca*e BO_TREATMZBT: 

printf CNO TREATMDITN n " I ; 

/' Compute balance anyway but won't get notice. lpriat_bill handle* that) */ 
■ r a nrUr dPi innin g( 4rtiinTiin g_cu»t. 

break: 
ca»e STAHBARDjniEAT: 

printf ! •STAHDARDXn" ) : 

/• Use standard treatment algorithm. •/ 




•e syECIAL_TSEAT: 



printf ("SPECXMAn") : 

/* Uae corporate treatment algorithm. •/ 

-T«cia l D u nnin g 1 4dunning_cu«t . 

aatket_rec.leeway_amount) : 

oreaX; 
caae DEXL_TR£AT : 

printf (*DEAL\n'l ; 

/* U«e corporate treatment algorithm. •/ 

«arket_r«c . le*w»y_aaount ) : 



-51- 



case BAD_DEAi_TX£A7: 

print.' caAO_DEW.\n*l ; 

/• 0»c corporate treatment algorltna. */ 

b a rt rtaa arung laaunaina_cuat. 

break .- 

print f ( *DEFAni.T\n' ) ; 

/• This may happen given our icrwy dad eacuxlty . So log and tix aa needed. •/ 
orror_hai«Uer ( 'bUl_t«»c • .onoreifN. 
•Qnoefined dunning cruuent code*) ; 
error - TRUE ; 

brmaJt; /• Juac tor the hell of it. •/ 
)/ 'Balance baaed on account '» treatment code"/ 

print£CPAST CUE Account - UO.lOs past due - lid notice level • »e\n* . 
dunning_cuat . acct_nr . 
dunning_cusc . pas c_due_ba lance. 
dunning_cu»t .notice_level) ; 

/• catalog dunning action in statistics record. •/ 

/' Calculate a latefee »/ 

// 



•l«te_fee_atruct l£s; 

l£s. market - _»arket_rec; 

1 ta.cu»t_inio_list - cuat_inf o_li*t; 



l£a . dunning_cuat - tdunning_cuat ; 
l£s.bill_info_ree - ioill^inf o_rec; 
If s.cur_cnarge_liat - cur_cnarge_li»t ; 
l£i.»dju!,c™enc_liat - tadjusc»ent_list 
l£a.collect_adj_liat - tcoll«ct_adj_li«t; 
1£«. totals - itotala; 
lfa.todays_date - &todays_dace; 
l£s.late£ee_date - _lacefee_date; 



lfa.catj.iat • cat_li«*; 
lfs.ddl_list - ddl_li_t; 
If a. jrnl_liat - joumal_liat; 
l£s . exemptions - exa— ption_l_»t; 

// 

il (calc_latef e-e (ills .super) ) 

{ 

error_n«ndaer f "bill_t«t»t • , UHXNOWH. 
•Error calculating late fee.-); 

) 

else > 

{ 

/" Qaeck £ or dunning exceptions •/ 

if (dumung_euat.notiee_ level I- rYI KESSJ\CE) 
I 

if (dunning_cuat.noti.ee level ~ BWOR_NOTlCE) 
{ 
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•Undelined notice lervel in bili_in£o' ) ; 

}/• rai .Tor invalid nociet •/ 

el.e 

( 

dunning_«xeeption I tdurming_cuat . 

4ouruung_excepcion_liat, 
iniinaing_ecaca_hdr) ; 



if 11 ccraentLovel* ( tdunning_cuat . 

kbilljUte. 

•»rkec_ree.»arket. 

I 

error_h«ndler I •bill_t«»e ■ . CBOOIOW. 
•Error inaerting lace notice ccanent . • ) ; 
error - TOTE; 

I 

)/• ei.ee no error notice */ 
)/* fyi'e don't count here ♦/ 
)/• el»e no error Letetee •/ 

if lupoace_bill_inio 1 mUl_dace . trti i m j ng_cu»t, 
bi.H_Uilo_r«c .rowidl I 

{ 

eXTor_b*ndler I 'bUl_tut ■ . QKUHDW. 

•Error updating «o/ed_«n«lyeie in bill_i_nlo*l ; 




Lee 

I 

rtimni ng_cuet .aoclce_levcl - m_HESS*CE; 
)/• Give aubordinatea DTI ♦/ 



print_bili_»truct pba; 
pba.euat_tnf o_rec - cuac_inj{o_liet.- 
pb».Mrket_call_li»c - t»exkeE_c»ll_liat : 
pbs.totala - 4tot*ie; 
pba.recur_l.iat - recur_liat: 

pba.ar_liac - «r_liet; 
pba.adjuacwit_l.iat - ad.juae«nt_l.iat : 
pbs.ra)ct_rec - 4»arkec_rec .• 
pba .bill_iaio_rec - _biU_inf o_rec ; 
pb».r«ce_pL«n_rec - 4cuacow5r_rate_plan; 
pba.tod_deac_l.iat • tod_d«ec_liat; 
pba . f yi_n>eaaagee - fy^emaeagM ; 

pbs.airtiae_tod_tota.la - »»rfcet_c»ll_liat->«irciB>e_tot; 
pba.race_Dlan_prorace - cuatoner_r»te _plan.ac _pro_r»ce; 
pbs.«ggTog«ce_coc_le - *ggregate_toc*le_ec»xx ; 
pba.diapl»y_date - _bill_<iate: ' 
pba.period_diaplay_date - fcp«iod_date : 
pb«.o£laet_diapiay_date - to££ aec_di*play_d»ce ; 
pba.due_date • fcdue_da.te: 
pba. bp - fcbp: 
pba.dbp - Idbp; 
pbs.cac_liat - cat_liat; 
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pD« . cocLiy«_Aict - tcad«y«_a«cc . 

po*.dunnang_eua:. - Klunmng_cujt ; 
// ""• 

If (pruic_bill Upba.auper) ) 

t 

error_h»odler ( 'bUl_t«»c* . CWXHOW. 

•printing bill') ; 

error - TROE: 

) /• if prine_bill •/ 



// it (lcuac_info_Uac->«9gT )« »CGMG*TE_>W5TI3t) 4A 

// lcu»t_iaio_Xi«c-»«5gT I- «A1JC_IH) ) 

/• S« if thia i» » xero bill customer •/ 
if (cu«c_info_li»c-»*37T I- *XLX_Ii») 

( 

»end_bill - checX_icro_blll I fctHinn i ng^cuac , 
cuac_inlo_liat. 

-.rkec_eall_Uat. 
4«ero_bill_liac. 
fccallect_«dj_Uat. 
bUl_inf o_r*c .pull_blll . 

1 

elae 

( 

e«nd_bHl - TK2E; 
1 

/• Cet nuaber of pagaa generated for taia bill •/ 
if taend_bill) 

dunzu_og_«tacj_bdr . bill_p*gea -- 
(bp.p*ge_counc » dbp.p*ge_count) * 
bill_info_r«.bill_copiee.- 



bui ld_'-i ' '._4.r— i\ l-air>"jU. ewst_ S nt o_liat . 

ibill_d«ce.*irti»e_det»il_Bt«rt. 
fcbill_inf o_rec . ptp . bdfp . Ujp . 
kdtop.a«nd_blll. 

/» close the princ filea -/ 
f cloae ttptpl ; 
fcloaeltbdfp) ; 
) /• t open or fraopen •/ 

( 

printf ('error op ening bill print filaa\n*l ; 
) /• fopen error •/ 

cw.rX_nmeU.raar>t_cu»e_»rr.2) .- 

/• build the co«ttia»ian_»».iv«» report line •/ 

m»r *_c ime ( S . BarK_t ime_«rr . 1 ) ; 

build_comw_rp c I *cow_rpt . * 

kco»_rpt_acruct. 
*djuacment_list. 
cu«t_iafo_liat. 
«3ieiBpcion_liat . 

todaya_d*te . dace_acr , 
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<_£ ed_total». 



/• accuxsulate phone sales report */ 
ac=_phone_sales tphone_»ales_Uec . recur_list . 

l.cu*t_lrifo_list) ; 



pnane_aal«s_li»c_haader_cur - phone_aale»_lisc_h«ader; 
sce_phone_ sales lphane_sale»_liac_h8sder_cur->sale»_lisc. 

recur_li«t. 
no nr ecur_llat . 
cusc_iJifo_list. 

temp_t>ill_params->ph_«aiaf_)rul_«cct] ; 
phone_sale»_list_&aader_cux • piiane_»*l«»_li*C_h»«der_ciir->linJc; 

ncur.Ujt. 
ncnr»cur_li«c . 

tra=p_bill _p»rm«»->equip_»*lo»_Jrtil_«cct) ; 



/• Qet copy of charge totals record £or curTsa 
chaises table update •/ 

add_tot*lsUtotaXs.lcurxent_chaxge_totals) ; 



totala . mrmrh)y_ac 



airti«e niwy xetxjit totals •/ 
^i^n.x»ce_p' IP] I- |rh-^!■TO. , ■) 
■unary lairtiBe^suasaary . 

■arket_eall_li«t - >airrii»e_tot . 

eu»toraer_r*te_plan.rate_plan_id. 

totals . ■onthly_aee*sa ) ) 



>e 1 7 . B«r)c_Ciiiie_arT . 1 ) ; 

/. update sueasary of cust activity •/ 



:_info_liat->cv 
cet_call_liat. 



■Bfflcpy tprev_acet_nr . cust_inf o_list - >acct_nr . 10 ) ; 
/• total the aggregate accounts •/ 

if leuac_iafo_list ->«ggr — AGGRH»TE_SnBaRD:ENMT) 

'{ 

/' copy the »g^r«3«re totals data into the -/ 
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L*ggr«g«te_' '_acart->*ggTegate_total«l : 
add_o»U_tot»l f*e!:_c*ll_ll»t-»c»ll_cotJLl». 

tag9Ttrgatr_to,^.l»_»tart->«9greg»te_call_cotal 
coc*l_»u0_»75i laggregate_totalj, 

aggTe-gace_tocala_acart . 

ag3Teg»te_totalt_«tart - 

agg*egate_total*_«t»rt->link.: 
cuat_inf o_liat - cuat_lnlo_U»t-»lin>i; 

/• total all the trubordanate charge* for the •/ 
/• current Muter account. cUi "ill »llo» •/ 
/• correct reportuig baaed on account rnrmb er •/ 
elae if lcu»c_info_liat->aagr — AGCREaATE_M*STDl I 
( 

/• put the h«a4 of the aggregate li»c •/ 
total_aggreg«te (aggregate_totala_etart. icotala, 

kmarxeL_caU_liat-»call_tocalal ; 
) /• i£ siittr aggregate •/ 

/• if thia ia the laat aggregate than procaea the ■ 
/• ataater aggregate laat */ 
if lproeaeaing_ag7r*gate ki 

map (prwv_aect_nx. cuat_inio_liat->*cet_nr. 10) 
cuac_inxo_liat - »aater_aggr»gate_ptr ; 

} /• if build_-»r)c«t_call_liat •/ 
elae 

( 

error^handler ( •bill_ca»e • ■ OTHHO HH. 

•building market call li*C); 

} /• elae build_»arket_c*ll_ii«t error •/ 

/• update the numb er of prorated daya . 

if lupdate_nr_prorated_day» (cu»t_inf o_li»t->cuat_nr 

I 

error_handler ( • bill_taac ■ , a&XMXOI . 

-update nr prorated ifays*) ; 

error - IHOE; 

} if update nr prorated daya •/ 



if ( (proceaaing_aggregate) 4i I cuat_inf o_liat->aggT I- ACGRECXTE_KXSTER > ( 



latruct »ar*et_caH_*txucc »)BuXit 

( 

/• free the subordinate liata •/ 
/- call liat -/ 

while l«axk«t_e*ll_U«t->c*ll_li*e I- 
I a tract call_acruct * ) KTTT.M 

( 

farfcee_caXl_ - li»t - >call_liat - >air_tax) ; 
ca*er->treeTa»I.iat 1 * 
«-axket_eall_Uac->c*ll_li»t->land_cax) ; 

(char •)»ax)iet_call_liat->call_liat->lirA.: 
fr»e((ch*r •>w»r)cet_ca_l,l_liat->call_Uat! ; 
•ark.et_c*ll_li.t->c*Il_liat - 

latruct call_atruct •)t«rmp_lijat_atart: 
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ta«r->£r»eTAXl_i»c I 

mm r*«c_call_liat - >eall_toc»la . land_cax) ; 
/• airtim* cocala •/ 

while (a*r)iec_call_liii-»aj.rcii>>e_coc !• 
lacruct iini«_touli •INULLI 

( 

(char •J««r)tee_e*ll_Ii*e->«irti»e_cot->link; 
£re*( (char ->Mr*ec_call_liac-»«irci»e_toc) ; 
«ar*ec_caai_li*t->ain:.i™?_coc - 

iacrucc aircime_total« "I ceop_li»c_»c»rc ; 
) /• while el«enc« in liac -/ 

temp_li»c_»c»n: - (char • ) »ark.ec_eall_liat->link; 
trwllehar • ) •arket_eall_li»c ) ; 
■arkec_eall_liJt - 

(acrucrc «arket_eall_acrucc * > c»wp_liit_acan:; 
) /• while elmtnci in Hat •/ 



/• Pree caxahle calla li.c -/ 
while lra.T»bie_call« I. 

Iacrucc call_acrucc *JSCL£) 

I 

Eaxer->fr*«T»xIAatUejxable_eal.l»->*ir_taw.) ; 
u*er-i.£r»«T«xla«tUtMt*l>le_call»->i*od_t*x) ; 
Eewp_UaC_»carc - 

(chax *>t*xahle_calla->link ; 
delcce CJmah le_calla : 
r»n»rtle_call» - 

Iacrucc call_acrucc •) cemn_li*t_acarL ; 
.) /* while elenents in liac •/ 



while lrecur_li*c I- Iacrucc r«cur_»crucc *)Jiau.) 

( 

ce«p_liac_»tarc - (char -> recur_liac->liak..- 
cuu->itnTaxLi<i llLrecur_lin->uxl ; 
tree It char - ) reeur_li*t ) ; 

recur_liac - Iacrucc recur_acrucc ") ce=p_li»c_acaix : 
/• nonrecurring charge* */ 

while (Bcnrecur_lijc I - (acruec non_r»cur_a cruet *)SDU.) 
I 

t«np_liac_acarc » (char N nenr»cur_liac->liiik; 
tixer->fr«TuUjc lvnonrecur_li»t->cajt) ; 

nanrtrcur_liat - 

lacrucc non_reoir_itruct • ) Ce=p_liac_Bcarc: 
} /• while eleoenc. in liac */ 

) /• ii procea»ing_aggr-egace •/ 



i£ l«JttnnptiOii_lj.ac l- lacrucc eat eo?)tiom_ info -JHOIi) 

I 

taaer->fr»c£xenqaci rmt . i ac lfca»«mpcion_liac) ; 
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} while (terror tt oroca«au»g_a9gT»9«te) ; 



/• ouild Uu M . line •/ 

buiia_»r_rpt I iar_rpt_«truet . euac-_inf o_1j 

kbiH_lnf o_roc. itotai*. 

«ar*.t_eall_Uat) : 

/• build the euatcner detail report •/ 



/• total market call and son call tacala */ 
coul^uuli latotal_nan_call_tocaj «■ 

itotal_eall_tocala . 

4caul_rouer_couli . 

■arXet_c«ll_li»t ) : 

/• add any unpaid chargea or era die to the ♦/ 
/• current charge and update the billing table-/ 

if <bill_coranic U upd*te_current_chargea lcuat_inf o_liat. 

icurxent_charge_tocala , 

bill_date . date_«tr . icolleet_adj _liat ) ) 

( 

error_handler ( *bill_ce»t • . OHXSaw . 

•updating charge bill't; 

error - TRUE; 

) ./• if error update current charge •/ 
) /• if get current charges •/ 

) I- if get_bill_iafo */ 



error_handler ( "bill_t«at ' . DRXNOXH, 

•getting bill info'): 

} /• elae get_bill_inxo . error •/ 

if (lbill_coeiaiti 

{ 

EXEC SOL ROLLBACK; 

} 

elae if tlerror) 
I 

exec sol ccmrr.- 
) 

/• free the cuatemer aaaociated linked listl •/ 
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•ggTwg»c.e_coc»l» - «99reg*ce_coc»l«_«c»r^ ; 
while (aggregate • I- 

lacrue: av ee_aeruc: • ) Htn-L) 

I 

ca«r-»£reeT»xLaac ( 

k»g9Ta9ace_cocala->aggrregace_toc.ala .nnncall_t*x) ; 
ta«r-»£raeTaxLiac ( 

fcaggT=gace_tQcal»->aggTegaLe_cocala .paynient_«dj_cax) ; 
uxer->frt<TixUic ( 

taggT-e9ace_cocala-»«9gregate_cocala .hcn>«_adj_caj() ; 
t*aer->£rMTaxLi»t ( 

fcaggregace_cocala-»aggTegate_totala . £oreign_adj_tajc) : 
ta«r->£reeTaxLiac ( 

fcaggTegace_cocala-»aggTegate_c»i;_coeala.air_taj<:) ; 
ca«r->£rwTaxLdac ( 

fcaggTegace_cocala->aggTegace_call_cotala. l«rd_c«x) ; 

aggTegac.e_LOcala_Bcart - aggrregace_cocala->linX.- 
£ree(lchar • I aggTBgate_tocala I ; 
agg"regate_cotaaa - aggxegate_cotala_ecaxt. : 
)/• while i^noacc acrucc node* •/ 

/• £re« race plan uxu •/ 

E*xer-»treeTaxU.«c Ucu»toBjer_r«te_pL«n.c*x) ; 

/• Pre* taxable calla liac */ 
while ltaxable_calla l- 

lacxuct call acrucc •IBUIi) 

i 

tajter->£re«TajaajiC (ttajtable_calla->air_t«) ; 
taaer»>£r«eTaxLiat(ttaxable_c*lla->lajjiJ_tax) ; 
eeap_liae_at*rt - 

I char •) rayahle_call»->llnX; 
delete c*xaale_ca_lla; 
cajLable_calla - 

f acrucc call_acruct •) teisp_liac_acaxt ; 
) /- while elewmta in U*t */ 



/" curreoc charges •/ 
while lcur_charge_liac 1 • 

lacrucc cur_chaxge_«crucx •INCH.) 

{ 

temp_liac_atajrc - (char •>cur_ca*rge_li*c->linX: 
tree I ( char - ) cur_charge_li»t ) ; 
cur_ch*rge_liac - 

tacruct cur_charge_acrucc *) te«p_li»t_ataxt ; 
) /• wliile eleewnca in liac •/ 

/• «r •/ 

while tar liac I- tatxuct •r_ecxuct - ISOLD 

{ 

cejnp_li«t_jtaxc - (chax • ) ar_liac ->linX; 
tra*(lchar «>ar_liat>; 

ar_liac - (acrucc ar_acrucc *l cemp_liac_scart; 
J /• while elemenca in liac •/ 

/• adjuacmenc liac copy •/ * 
while (eollecc_adj_liac I- 

(acruct collecc_adj_acruct ->HULL) 

{ 

cemp_li*C_acarc' - I char ->collecc_adj_Uac->linlt; 
free ( I chax •) collecc_adj_liac) ; 
coilect_adj_liac - 
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I 

teiap_liaE_stan - (char • > »djustnent_list - »link: 
tajter->£r»eTajcUst lfcadJust»«nt_li«t->t*jO ; 
£T«e((ch*r •l»dju*cnenc_UsEl : 
adjuatinent_Usc. - 

Iscruct adjuat»icnc_scruct • ) t«™p_li»c_start; 
) /• while iliwu in Use •/ 

/« recurring charge* */ 

while treorr_li»c I- Istruet recur_strues *)HtHI,) 

I 

tee^i_list_starL - tchar • ) recur_list ->linfc; 
taxer->£r»«TaxU.st (trecur_list-»tax] ; 

recur_lisc - latruct recur_«crucc * I teisp_liat_staxt ; 



while tndarecur_lisc I- (struct. nen_r»cur_scruet *)KCLi) 

( 

temp_liat_start - (char •)nonr*cur_liat->lin)t; 



f c*ll related charges •/ 
.hile lmar)«t_call_Uet I. 

Uciucc »arlcet_call_seruet •)»OIX) 

( 

/• free Che subordinate lists -/ 
/* call list •/ 

while (■arkat_call_list-»call_list l- 

(seruct c*ll_srr"c-. *}1T T '-' 

( 

t*xer->£re«TaxList ( 

tjoarket_call_liac-»call_li«t-wiir_caxJ ; 
taxer->£r*eTaxListl 

fc»ar)iet_call_list - >call_liat- >land_tax) ; 
temp_list_start - 

(Char ->mar*ec_c»ll_list->call_list->link; 
£re*( I char *>narlieE_call_li*t->eall_liat> ; 
■arket_caH_list->call_list - 

t struct call_struct * 1 temp_list_scart ; 
} /• while elsnent* in list •/ 

/* Prw* call Uuces •/ 
taxer->£r«eTaxJLiac ( 

«daaricet_caH_li*t->c»H_tocala .air_tax) ; 
Eaxer->ir«eTaxList ( 

fcsiarkee_call_list - >c*ll_tot»l« . land_taxl : 

/' airtine totals •/ * 
while tBarket_call_liait->airtime_tot I- 
tstruct airtiM_totals "IHUIi) 

( • 

I char • ) «ar)tec_cai.i_li*t - >airti»e_eot - >linX ; 
£ree((ch*r ->a«r*et_call_list->*irtiM_cot! ; 
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«»«rxec_c*ll_.-«t-»»irti«.e_tot - 

latru- irr.i-e_oot.lj •) te«ip_li»t_»tari : 

(■truce w«arkat_call_atrucc •) tM9_liac_atart : 
) /• while elew*nt« in li«c •/ 

/• if agsragace account tree all MaMti o£ the •/ 

do 

( 

mtnepy lprwv_acct_nr . cu«t_info_li*s- >aces_nr . 10) ; 
temp_li*c_ft*rt - (char •)cu«c_inio_li«c->linJc; 
(t« ( Ichjr ♦)cuat_ialo_liat) ; 
cu»c_inlo_liat - 

(•truce cuac_atrucc -I temp_lijJC_«tart; 
) while lcuat_inlo_liat I- (cu»t_atruct •IITOLL 41 

1 Mtncnp l euat_inf o_ liat - >acct_nr . 
prerv_»cct_nr, 10)1 ; 

■wocpy I ab»addra»a . t*«g_perf , 
aixeof (atruct a«g_peri_»cruct) I ,- 
) /• while cuat_inio_liat •/ 

if (I error) 
{ 

if I) parallel) 
( 

prmtf CBCIIUIIIG THE REFORTSVn- ) : 

/• add the cotala to the account* receivable report •/ 
add_ar_coc*la ( iar_rpt_atruct , 

4tocal_non_c*ll_totala . 

itotal_caJ.l_totala . 

teotal_roMcr_toc*l_) ; 

/• build the aivtiue lumuy report */ 
build_as_rpt ( 4aa_rpt . i*j_rpt_«truct . airtin>e_ mmi ry , 
tod m de«c_li»t) ; 

/* build the toll • airtiow: avcraary report */ 
build_ta»_rpc (4caa_rpt . 4taa_rpc_»truct . 



/- build the billing report •/ 

build_biil_rpt (kbilling_rpt . Uailling_rpt_«truct . 

icocal_non_call_tocaij . 

fctot«l_call_totala . 

fccotal_roa*»er_totala> ; 

/• build the journal eumaary r ep o rt •/ 
build_3«_rpc(fcj»_rpt. 4 j»_rpe_»truct. journal_li»t. 

4total_non_call_total» . 4total_call_tot*ls . 

4tocal_ro«iner_eocala. auper) ; 

/• build phone aalea report */ 

build_p*_rpt (fcp»_rpt.4p»_rpt_»truct,phone_-«l«»_lije) .- 
build_p»_rpt (4p»_rpt. 4pe_rpc_Jtruct . phone_aale»_liat_hea 
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/• build the tax rwgister report •/ 

build_tr_rpt (4tr_rpt.4tr_rpt_«truct.t*x_r»gl»t«r) : 

/• »dd comission waivers totmls •/ 
add_eoM»_totals (tctw_rpc.tcow_rpt_«cruxrt. 

ow_Kni_cot»li . co™»_f «d_totals . 



I » / 

rds. segment - s eyie nt: 
rds.bill_date - bill_date.d«te_scr; 

rds.total_call_totals - itot*l_e»ll_tocal« ; 

rds . total_non_ci»ll_totals - itota,l_B£m_call_totals ; 

rds.total_roaraer totals - fcCocal_roaa>er_tot*As ; 



rds . tod_de»c_list - tod_da»c_li»t 
rds . toll_airtime_llat - toll_ 
rds. joumal_list - joura»l_li-»t: 
rds .phone_sales_list • phone_s*l«s_list_h«ader : 
rds . tax_register - ^Ax re^uccr ,- 
rds.rev_U.st - rev_list; 
rds;con»<_li»c - comv_li*t; 
rds.coraw_amt_totals - eo«»<_amt_tocals : 
rds.comv_led_total* - comw_f «d_totals ; 
rds.con»v_at-ate_totals - cco»#_state_toEal»,- 
rds . cooiw_eouncy totals - ccBw^cmmcy totals : 
rds.eoim«_loc_totals - cot»<_loc_totals .- 
rds.dunaing_exception_list • dunaing_«xception_list ; 
rds.iero_bill_list - sero_bill_list; 
rds. discount jlans - tplan; 



■Report data insert had error (s).' 



.err. 2) : 

)/• lutn report «r- •{ Lnco ittufim 



error_hiKUer ( •bill_ce«c ■ , 0? 
•KAKH: Report &»c* »1H not be luerttd due to previous error 

} 

) /• if build ton eircime Uat •/ 
else 

( 

error_h*ndler ( -bill_co»t * , OmQiOttn. 

•building coll *irri»e li*c*> 

error - TRDE; 

) /• el.e gee_cv«_U« error •/ 
) /« if I open report files •/ 



error_h*ndlerfbill_ce»c-.FILEOPDt. -report files*) ; 

) /• elee terpen report tile* error •/ 

) /• if gec_cu»c_li*t */ 
elee 

I 

error_bandlert*bill_teec*.'innarowN.*gecting cu»to«er ljJE"); 
error - TSOE.- 

) /« el»e get_cu»c_li»c error •/ 
) /• if gee _princ_cac -/ 
el.e 

! 

error_h*adler ( *bill_te»t " , UHUICMN . "getting print category li«c*) 



) /• else error getting print_cat info */ 
} /- if gec_tod_de«e_li«e */ 



error_ru fuller ( -bill_te»c ■ , UTO 

t.ur - TOTE; 

) /• el»e geC_tod_de»e_li*t t 



I 

error_handler ( *hill_te»t * . UHUNUWJ . 'getting dace values * ) 
error - TRUE. 

) /• el«e gec_d«ce_v»luM error •/ 
} /• if gec_rate_li«c •/ 
:1s e 

{ 

error_bandler t *bill_te«c " , OnjKMH, •greeting race liec data' 



) /• el»e get_rmee_list e 



else 

( 
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erT^r_tu»ndlerl"bilJ_c»»c".CSnCNC»n.. -getting i.rtr»« r «— .. 

error - TRUE; 

} /- elae 9 ei.nte_h« error V 
) /■ if get due date liae*/ 

elac 

( 

error_h«ndier( , S>ill_te»f.tnnCNOW. 'getting due date lise'l ; 
error • TRUE: 

) /• elae get_due_liat error •/ ' 



OSWWN, "getting oarfcet information") ; 
rket information •/ 
) /• if topen •/ 

( 

error_handler t-bill_teat-.FILE0PEN.argv[2) ) ; 

error - TRUE; 

) /• elae fopen error •/ 

) /• if log on •/ 
else 

( 

print f ["\ncan" t log on to Oracle\n'); 

error - TRUE: 

) /• el»e - logon •/ 

/* gee the laat bill dace and update the market table */ 

/• with cue current bill dace •/ 
i£ tbill commit I 
( 

priacf ( -UPDATED BILL DATENn*) ; 

updacejji'12 datelibill dace.ioffaet dlrplxy dace.idue- date.aarJree) .- 
) ~ ' ' 

i£ ( U parallel) fci Ce.-rovU 
( 

/• print the automatic reports »/ 

/* print the accounts receivable report 
princ_reportlar_rpt.fcar_rpt_atructi : •/ 

/* print Che airtime eunniary report */ 
print_report (as_rpt . l»s_rpt_scrucc) .- 

/• prinz. Che toll and aireime auraary report •/ 
pr inc_report ( ta«_rpc . fccai_rpt_atruct ) ; 

/« print the billing report */ 

print_report (billing_rpc.kbiHing_rpt_«truct) ; 

/* print the jorunal suniaary report •/ 
print_report ( js_rpc. lja_rpt_scrucc) ; 

/• print the phone aalea report ♦/ 
print_repofc tps_rpt . tpa_rpt_»cruct) ; 

/" print the tax regiater report */ 
print_rrport lcr_rpt, 4tr_rpc_atruct) ; 

/* print the charge detail report •/ 



| /• i£ get_«arkec ♦/ 
L*e 

I 

error_handler I "bill_ce»C * . 
error . TRUE; 

} /" elae error getting na 
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/• print enc cexrmiaaion <«l»eri report */ 
priBt_report teo«_rpt . kcow_rpt_«cruct ) ; 

/ / 

/• - Report »11 data Che •*» collected •/ 

/• during the call (Uacounting proeeaaing •/ 

/ '/ 

lfldiacountXeportingUplan.a»rk«t..bin_dai.e.date_»cr) -- -1) 

I 

error hand ler CCal] Diacouncing" ,0>nO*0»W. 'Could not create report*!; 



) /• if (parallel priot 
if terror || ltoill_cowait ) 



exec sol, Romxex WOW; 

it laqlca.aqlcode I- W3T_S0L_E3UlOlll 

( 

error_handler ( •rollb-.c*' . 0RACLE5ELECT 1 aqlc* .«qler 
I /' If aql error •/ 



inaert_dunning_activicy 14marXet_r«c, tbill_d»te, i 



EXEC SOL COMMIT WORK RZLEXSX; 

if laqlca.aqlcode I- WTT_S0L_E3WOR) 



error_handler Ccoemif .QR*Cl£SELECT.«qlc».»qlerrm.»qlerr»c) ; 
} /« if »ql error •/ 



«.rk_i;iMlS.Mr)t_ti.ie_«rr.JI ; 

memcpyUhmaddreaa.4aeg_per: I jixeof latruct «eg_perf_»trucx) ) ) ; 

aprintf laxcp_£ile. "axcp.rpc') ; 
aprincf (dwrp_file, ■dxcp.rpc*) ; 
aprincf (xero_file. "xero.rpt") : 

ifUlerror) 14 Itpaxallel) 

44 I <axcp_rpt_acruct..rpt_file - 

f open l-occp_f lie. •»»*) ) I- NULL.) 
44 I lzero_rpt_atruct..rpt_file - 

fopea(xero_£ile, *v»*| ) I • HOLL) 
44 ((dxcp_rpt_icruct.rpt_file - 

fopenld3ccp_file. I- ROLL)) 

I 

build_rev_rpc trev_liat ,rev_rpc_»cruct .rpt_Iile. 

bill_date. date_atr, market. *up«r) ; 

/• Build dunning exception rpt •/ 

if (dunning_excepcion_liat ! - 

tacruct collectiotia_ixiio •INOLLI * 
build_txcepcion_rpt l»xcp_rpt_acruct.rpt_£ile. 

dxcp_rpt_acrucc . rpt_f ile . 
4dunning_«xception_liat . market . 
bill_d*ce.dace_acr. 
temp_bill _j»ar»ma ) ; 
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/• Build tera activity Ino billl rpt •/ 
If lxero_bill_liat 

licruct *ero_bill_»cr. MWCLi) 
build_*ero_rpc I iero_r-c_»cruct . rpt_ £ i le , 

kiero_bill_lnt.Mrk.et. 
bill_date.d»te_acr. 
temp_bill_p*rao») ; 
(/• Build report* if noc aborting •/ 

// tree airtime_«\OTary list 

while iairti-e_eu=->ary I- lacruct »irti-e_»u«»ry_«crucc •)SUIX) 

I 

// free jirti»e_tocal» liat 

while (_irtnae_«UJ-»«ry->«irti»e_!:oc I- latruet airti»e_totalj •)BUU-) 

( 

lrmp_li«l_»t»rt - Ichar •>«ir*ia«_.wBmary->«irti»*_tot->linx; 
//FOG:CXUirti-e_tot*l») ; 

tree t (civar • ) airtime_aum-*ry- >airtime_tot) ; 
airtime_mm-ary- »*irci»e_toc - 

latruet airtlme_total» •) teop_liat_etart; 
) /• while «l«-«nta in liat •/ 

temp_li»c_»cart - Idiar •l«irti»e_»\a«-*ry->li_X; 
//rCHEOCl«irtime_«u-oary_itruct) ; 

tree ( Ichar -I »irtime_«u-ma-y) ; 

airtin-_»u-e>ary - 

letruct airtime_aun»ary_Btr\jct •> te«p_li«_»c*rt; 
) /• while elementa in liat */ 



// tree bill detail aort code lookup Cable 
get_aort_infol-l. TREE - ) : 

// tree memory uaed by tax intert»ce ud dump cache atatiatica 

delete taxer; 



/' cloae reallocated acdout */ 

fcloae (as_rpt_scruct.rpt_£ile> ; 
fcloae ltas_rpt_arruct.rpt_file) : 
fclo»e<ja_rpt_ac-uct.rpt_£ilel ; 
f cloae lpa_rpt_ac-ucc.-pt_file) ; 
fcloae (tr_rpt_*cruet .rpt_£ile) ; 
f cloae < rev_rpc_»trucc. rpt_£ile) ; 
£clo»e (billing_rpt_»cruct.rpt_£ilel ; 

)/" i£ not parallel mode, cloae aequential report files opened •/ 

// fcloae (*xcp_rpt_»cruct.rpt_file) ; 
fcloae I rero_rpt_struct .rpc_£ile) ; 
// fcloae ldxcp_rpt_acrucc.rpt_file) ; 
fcloae lar_-pt_acruct.-pt_flle> .- 
fcloae (eo-w_rpt_ecrucc .rpt_file) ; 
fcloae (fpetd) ; 
fcloae (fpatdel ; 
fcloae (pfpl ; 
fcloae Ibdfp) ; 

i 

/' for reporting exit atatua to parallel manager •/ 

if terror) exitU): 
eiae exit (01 ; 

} ./• bill teat •/ 
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// aeruct .arX_acrucc ci«r_array f] ; 
// inc ■»r^_nu=ber .- 

( 

time_t curciK.' /• Ci»e in aeconda •/ 
•cruet cm •loe^iKe: 

atatic char laat_accounc_iir (11) - * i O COaG DCC* ; 

/• 

atrucc cinmval tp; /• poincer co cl-eVal acruct in «y»/cioe.h •/ 
■cruet ci—xon. txp; /• pointer co tia-xem. .cruet in ^«/ci»e.h ./ 

V 

/ - mez Che rdnucaa vast of Greenwich aad tiaerone Cnmcment */ 
/• trp.txjainucaaw.ac - 340; /. « hcur» wz -/ 

crp.tx_dattia>e - I;. /• daylight aavioga appliea appropriately ♦/ 

•/ 

i£ Icur.xw • tia*<0)) /• p« change •/ 
/• i£ |ioetti«eo£dayUtp.*txp)) •/ 

( 

loe_time - loealclseUcurciaw) : 

/" determine Che elapaed time alnce the laat »axX •/ 

( 

f- printf r»a *a- , tia>e_array lr««*rk_nr] .r«»axk.. eciaas Utp.ev_aec) ) ; 
print £ («»a »» ■ . timc_«rxay i r««arx_nr ] .reaaaxk.. aacriae (loc_tijae) ) ; 

) 

( 

princf(**a - cine elaaped ainee laac ■ark.: aeca %f\n", 
(£loatl I Ifloat) euxxine - (float) Cl»e_axT»y (remaxfc_nrj .••cocda) ) ; 



aeg_p«rf . laac_cuat_cime - curcime - Ciae_axray (rcaalk.Brl .J 

if Imeracmp laeg_pex£ . Laat_accounl. l*at_account_nx . 10) — 0) 
{ ' 

aeg_peri..Laat acct^ciae ♦» a«g_p*rf .laac_euat_ti«; 

I 

elae 

( 

aeg_p«r£ .laac_accc_time - aeg_p*rf . laaC cuat cine; 

) ' ' ■ 

if (aeg_perf .alov_cia>e < a«g_per£ . laat_cuat_tia>e) 
( ■ 

■eg_per£ . alov_ci»e - eeg_per£ .laat cuat cine; 

) 

elae if (aeg_perf .f a*t_ti»e > aag_p«rf . laac_euat_ci»e) 

( 

aeg_perf . f aat else - a»g_perf . last cuat time ; 

} 

aeg_pcrf .elap*ed_ciae — aeg_perf . l*ac_cu»c_ciBe ; 

I 

elae 

( 

aeg_per£ . cotal_cime - curcime - cine_array lrexsark_nr] .aecoi 
aeg_perfrrunniag - 0; 
aeg_perf .coo^lece - 1; 

} 
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} 



